Reading Excel file into R using readxl and httr/libxls error: Unable to open file

Question

我想使用 Excel 文件的 url 从网站 Link 读取 Excel 文件的 sheet 1。我在 windows 10，R 3.6.1。

我正在尝试使用 and have also checked out 中的代码。

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)，您会看到有一个明确的 link 用于直接下载文件（在文件元数据框中）。

如果您执行以下操作，类似于上面的代码，您可以正确检索文件：

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)