download.file 下载的 xlsx 文件无法打开

Question

我正在尝试使用 download.file 下载一个 xlsx 文件（该文件恰好位于 Teams 链接上），当我尝试查看该文件（在 R 中或只是双击Windows 资源管理器中的文件）失败。

然后我在 Dropbox 链接上对其进行了测试，但同样失败了（代码如下）。不知道为什么，但我尝试过不使用显式模式和使用 mode="wb"。

示例代码：

download.file(
    url = "https://www.dropbox.com/s/9bumheqlbpxygnl/testfile.xlsx?dl=0", 
    destfile = "test.xlsx",
    mode="wb"
)   

读取下载文件时出错：

> readxl::read_xlsx("test.xlsx")
Error: Evaluation error: zip file 'C:\Users\tam2\Dropbox\Trabalho\CEAUL\COVID19\Projetos\COVIDETECT\dados\test.xlsx' cannot be opened.

有人可以帮助我了解可能发生的情况吗？我在 StackOverflow 上看到其他人通过使用 mode="wb" 解决了他们的问题，但这在这里没有影响（在任何一种模式下都不起作用）。

上面的链接确实有一个文件用于测试，以防你想使用它。非常感谢

我还尝试了在这里找到的变体

Error downloading and reading Excel file from URL in R

基于

library(httr)
GET("https://www.dropbox.com/s/9bumheqlbpxygnl/testfile.xlsx?dl=0", write_disk(tf <- tempfile(fileext = ".xls")))
data <- read_excel(tf)

但又撞到了石墙

Error: 
  filepath: C:\Users\tam2\AppData\Local\Temp\RtmpCA2uEa\file31802e134f09.xls
  libxls error: Unable to open file

R version 3.6.3 (2020-02-29) -- "Holding the Windsock"
Copyright (C) 2020 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)

Answer 1

这两个问题都解决了我电脑上的问题。

url <- "https://www.dropbox.com/s/9bumheqlbpxygnl/testfile.xlsx?dl=1"
fn <- tempfile(fileext=".xlsx")
download.file(url, destfile=fn, mode="wb")
library(readxl)
dat <- read_excel(fn)
str(dat)

请注意，网址已更改为dl=1，并且提供了download.file 和read_excel 的完整路径。似乎download.file 至少在我的 Windows 电脑上默认写入 ~/Downloads 文件夹。

另一种方法也适用：

library(httr)
GET(url, write_disk(fn, overwrite=TRUE))
dat <- read_excel(fn)

请注意，data 也是一个基本 R 函数，因此使用该名称命名变量不是一个好主意。