R readxl :: read_excel не удалось открыть файл xls

Question

readxl_1.1.0

Я пытаюсь прочитать файл по этой ссылке (веб-сайт правительства США)

https://www.cftc.gov/files/dea/history/dea_com_xls_2018.zip

Когда я распаковываю файл xls внутри и читаю с readxl::read_excel, происходит сбой с сообщением об ошибке failed to open C:\path to file

Я могу открыть файл в Excel, сохранить его в CSV и прочитать его в R на fread, но таких файлов много, так что это утомительно. Кстати, некоторые другие xls-файлы, загруженные с той же веб-страницы, могут быть прочитаны read_excel

Answer 1

В файле xls есть что-то странное. Я думаю, что это потому, что он содержит некоторый код VBA.

Если вы счастливы использовать XLConnect, вот альтернатива, которая читает файл.

library(XLConnect)
extdir = tempdir()
unzip("dea_com_xls_2018.zip", exdir = extdir)
file = list.files(extdir, pattern = 'xls', full.names = T)

wb = loadWorkbook(file)
ws = readWorksheet(wb, sheet = 1)

dim(ws)
#[1] 11131   126