М
Size: a a a
М
М
М
М
dbSendQuery(conn, "SET NAMES cp1251")
. Это позволит считывать из БД данные которые в существующую таблицу записаны кириллицей. Но если столбец создан select-запросом и обозван кириллицей, или в его ячейках есть кириллица, то все равно будут возвращаться крякозябры.set_utf8 <- function(x) {
# Declare UTF-8 encoding on all character columns:
chr <- sapply(x, is.character)
x[, chr] <- lapply(x[, chr, drop = FALSE], `Encoding<-`, "UTF-8")
# Same on column names:
Encoding(names(x)) <- "UTF-8"
x
}
И потом каждый раз оборачивать в нее запрос к БД:from_base <- set_utf8(dbGetQuery(conn, query))
h
М
h
ИП
JS
JS
БА
ДВ
БА
A
A
A
JS
A
JS
JS