Блог

не могли бы вы помочь? Я не знаю, как установить параметр encoding = «UTF-8» в моей функции для чтения нескольких CSV-файлов:

 library(data.table)
filenames <- list.files("C:/Users/H409126/OneDrive - Honeywell/R/Military/Cirium/Jan 2021/RawData",  #CHANGE
                        pattern="*.csv", full.names=TRUE)
cirium <- rbindlist(lapply(filenames,fread))

 

Вы можете использовать —

 library(data.table)
cirium <- rbindlist(lapply(filenames,fread, encoding = "UTF-8"))
 

Или, чтобы быть ясным, вы также можете использовать анонимную функцию.

 cirium <- rbindlist(lapply(filenames, function(x) fread(x, encoding = "UTF-8")))
 

Мы можем использовать read_csv

 library(dplyr)
library(readr)
library(purrr)
cirium <- map_dfr(filenames, locale = locale(encoding = 'UTF-8'))