使用 readxl 和 httr/libxls 将 Excel 文件读入 R 错误 : Unable to open file

Question

我想读取网站 Link 中 Excel 文件的第 1 张数据。使用 Excel 文件的 url。我使用的是 Windows 10 R 3.6.1。

我正在尝试使用 Read Excel file from a URL using the readxl package 中的代码并且还查看了reading excel files into a single dataframe with readxl R 。

url = 'https://dataverse.harvard.edu/file.xhtml?  persistentId=doi:10.7910/DVN/WEGWGS/I11K9Y&version=1.0'
GET(url, write_disk(tf <- tempfile(fileext = ".xls")))
df <- read_excel(tf, 1L)


# Error message
libxls error: Unable to open file

我收到以下错误消息:

libxls error: Unable to open file

感谢您的帮助!

Answer 1

如果您向下滚动该网页 ( https://dataverse.harvard.edu/dataset.xhtml?persistentId=doi:10.7910/DVN/WEGWGS )，您将看到有一个用于直接下载文件的明确链接(在文件元数据框中)。

如果您执行以下操作(与上面的代码类似)，则可以正确检索文件:

url = 'https://dataverse.harvard.edu/api/access/datafile/:persistentId?persistentId=doi:10.7910/DVN/WEGWGS/I11K9Y'

library(tidyverse)
library(httr)
library(readxl)
httr::GET(url, write_disk(tf <- tempfile(fileext = ".xlsx")))
tf

df <- read_excel(tf, 1L)