AS
Не сработало.
Size: a a a
2021 April 27
AS
Так-то у меня сейчас тоже через read.table сделано, т.к. названия конкретных подписок пока не нужны.
ЕТ
А если попробовать через дататейбловскую читалку?
AS
Видимо придётся, но что-то подсказывает, что для этого придётся ещё и iconv осваивать.
AS
Неужели в read.table никак нельзя нужную мне кодировку подсунуть? read_delim же хавает как-то.
AS
Лол, что гугл по первой ссылке выдал: https://r-statistics.livejournal.com/66415.html (не помогло).
ДВ
Живой журнал?
ДВ
Серьёзно?))
AS
Здесь многие уважаемые люди (а также я) оттуда.
ДВ
ну я его похоронил лет 7 назад уже.
AS
Я с 2015 забросил
PU
я в 2013 :(
PU
хотя жалею до сих пор, лучше платформы так и не нашел, кроме своего standalone
ДВ
Сейчас точно в оффтоп свалимся)) Но вопрос же не платформы, а контента)
IS
1. https://vroom.r-lib.org/index.html
2. data.table + cmd параметр
Есть нюансы...
2. data.table + cmd параметр
df <- fread('unzip -qp "./data-log/TempLog 03082018.zip"', sep=";", encoding="unknown")Есть нюансы...
AS
За vroom спасибо. Как-то запамятовал я о нём.
IS
Чуть поглубже (как идея):
data.table::setDTthreads(0) # отдаем все ядра в распоряжение data.table
data.table::getDTthreads() # проверим доступное количество потоков
fnames <- EmployeeProfile %>%
fs::path(datapath, ., ext = "zip") %>%
{case_when(
.Platform$OS.type == "windows" ~ glue('unzip -qp "{.}"'),
.Platform$OS.type == "unix" ~ glue('unzip -qp "{.}" | iconv -f windows-1251 -t UTF-8'),
TRUE ~ as.character(NA)
)} %>%
as.character()
raw_df <- fnames %>%
# https://github.com/Rdatatable/data.table/blob/master/NEWS.md
# с версии 1.11.6 появился параметр cmd, см п. 5 NEWS
purrr::map(~data.table::fread(cmd = .x, sep=";", showProgress = interactive())) %>%
data.table::rbindlist()
AS
Сурово... Покурю.
IS
Задача решается и решается легко и многими способами. Рабочие вопросы в формате исходных данных, их объеме, платформе и пр...
AS
Спасибо.