使用R下载* .xls文件会产生错误

Question

我正在尝试从BLS服务器下载大量xls文件。 当我手动下载任何文件时，它们会完美打开。

但是当我尝试从R里面下载文件时：

library(readxl)

tp <- "http://www.bea.gov/histdata/Releases/GDP_and_PI/2014/Q4/Third_March-27-2015/Section1ALL_Hist.xls"
temp <- paste0(tempfile(), ".xls")
download.file(tp, destfile = temp, mode = "wb")

这会下载正确大小的文件，但尝试读取文件：

 data <- read_excel(path = temp, sheet = 1)

返回错误

seek: wanted to seek to sector 5374034 (0x520052) loc=2751505920

Answer 1

设置mode="wb"进行二元转移：

download.file(tp, destfile=temp, mode="wb")