Не могу загрузить Excel и базу данных в R, но CSV работает

Я просматриваю «R для всех», и на 6.2 он просит загрузить файл Excel онлайн. Мне удалось это сделать, когда они попросили загрузить CSV, но я получаю сообщения об ошибках для Excel.

Загрузка CSV онлайн работает, Excel не работает. Я попытался сделать часть БД несколькими страницами позже, но все еще остались проблемы. Я считаю, что скачал все пакеты, но, возможно, я что-то упустил.

Это код, который я использую:

download.file(url='http://jaredlander.com/data/ExcelExample.xlsx', destfile = 'data/ExcelExample.xlsx', method = 'curl')

download.file("http://www.jaredlander.com/data/diamonds.db", destfile = "data\diamonds.db",mode ='wb')

Я ожидал, что он загрузит файл Excel, однако получил следующее сообщение об ошибке.

Предупреждение: не удалось создать файл data / ExcelExample.xlsx: такого файла нет или Предупреждение: каталог 100 254 100 254 0 0 537
0 -: -: - -: -: - -: -: - 538 curl: (23) Ошибка записи тела (0! = 254) Ошибка в файле download.file (url = "http://jaredlander.com/data/ExcelExample.xlsx ",: вызов 'curl' имел ненулевой статус выхода

Как и это для части БД.

1: In download.file("http://www.jaredlander.com/data/diamonds.db",  :
  URL http://www.jaredlander.com/data/diamonds.db: cannot open destfile 'data/diamonds.db', reason 'No such file or directory'
2: In download.file("http://www.jaredlander.com/data/diamonds.db",  :
  download had nonzero exit status

r excel downloadfile rcurl
person brokenpaul    schedule 02.07.2019    source источник
comment
Возможно, у вас нет локальной data директории?   -  person Botje    schedule 02.07.2019
comment
Привет, просто удали method = и скажи результат, пожалуйста. download.file(url='http://jaredlander.com/data/ExcelExample.xlsx', destfile = 'data/ExcelExample.xlsx').   -  person Gainz    schedule 02.07.2019

Ответы (1)


arrow_upward
1
arrow_downward

У меня это работает.

target = "http://www.abs.gov.au/ausstats/meisubs.NSF/log?openagent&5206001_key_aggregates.xls&5206.0&Time%20Series%20Spreadsheet&24FF946FB10A10CDCA258192001DAC4B&0&Jun%202017&06.09.2017&Latest"
dest = 'downloaded_file.xls'

download.file(url = target, destfile = dest, mode='wb')

Или вы можете это сделать.

library(readxl)
library(httr)
packageVersion("readxl")
url = "https://www.eia.gov/dnav/pet/hist_xls/W_EPC0_SAX_YCUOK_MBBLw.xls"

GET(url, write_disk(tf <- tempfile(fileext = ".xls")))
df <- read_excel(tf, 2L)
str(df)
person ASH    schedule 04.07.2019