如何在R中从浏览器端导入Excel文件且支持账号密码验证

原有代码报错原因 #

你之前使用readHTMLTable处理Excel文件的逻辑存在本质错误：readHTMLTable是用于解析HTML页面中表格结构的函数，无法识别二进制格式的Excel文件，因此运行失败。

无需存盘、支持身份认证的读取方案 #

我们可以通过httr包发起带认证的请求，直接读取返回的二进制Excel流到R环境中，无需写入本地磁盘，依赖httr和readxl两个包即可实现：

• 如果是旧版.xls格式或新版.xlsx格式，readxl包均支持直接读取
• 支持Basic Auth身份认证，也可灵活扩展其他认证方式（如Token认证）

测试场景（公开无认证文件） #

# 加载依赖包
library(httr)
library(readxl)

# 目标Excel文件地址
file_url <- "https://www.nordpoolgroup.com/4a4c6b/globalassets/marketdata-excel-files/elspot-prices_2021_hourly_eur.xls"

# 发起GET请求
resp <- GET(file_url)

# 直接从响应内容读取Excel数据到环境中，无需存盘
elspot_data <- read_excel(content(resp, "raw"))

业务场景（带身份认证） #

如果你的业务接口需要Basic Auth认证，仅需要在GET函数中增加authenticate参数即可：

library(httr)
library(readxl)

# 业务接口地址
biz_url <- "你的业务Excel文件接口地址"

# 发起带身份认证的GET请求
resp <- GET(
  biz_url,
  authenticate("你的用户名", "你的密码")
)

# 读取数据
biz_data <- read_excel(content(resp, "raw"))

扩展说明 #

如果你的业务接口使用其他认证方式（如Bearer Token），可以通过add_headers参数传入认证信息，示例如下：

resp <- GET(
  biz_url,
  add_headers(Authorization = "Bearer 你的接口Token")
)

内容的提问来源于stack exchange，提问作者Priit Mets