如何将单个文件web页面/web存档excel文件读入R

是否可以将此文件读入R，而无需手动打开该文件并将其重新保存为excel文件。下面显示此文件实际上不是excel文件

url[1]“MIME版本：1.0”
#>[2]“X文档类型：工作簿”
#>[3]“内容类型：多部分/相关；边界=\”——=\u下一部分\u e3144909\u 1d60\u 4840\u 908e\u 3419ae0a14d3”
#> [4] ""                                                                                                                                                                                                                                                                
#>[5]“此文档是单文件网页，也称为Web存档文件。如果您看到此消息，您的浏览器或编辑器不支持Web存档文件。请下载支持Web存档的浏览器，如Microsoft Internet Explorer。”
取消链接（温度）

1） 当前有没有将此文件读入R的解决方案

---

2） 是否可以自动手动打开文件并将其保存为R中可读的格式？一种可能的解决方案是使用

httr

：

library(httr)
library(XML)
library(magrittr)
h <- GET("https://www.sec.gov/Archives/edgar/data/320193/000119312511192493/Financial_Report.xls") %>% 
    content("text", encoding="UTF8") %>% 
    readHTMLTable()   

库（httr）
库（XML）
图书馆（magrittr）
h%
内容（“文本”，encoding=“UTF8”）%>%
readHTMLTable（）

---

编辑：添加使用工作表名称作为表名称的版本

library(httr)
library(XML)
library(xml2)
library(magrittr)
ctnt <- GET("https://www.sec.gov/Archives/edgar/data/320193/000119312511192493/Financial_Report.xls") %>% 
    content("text", encoding="UTF8") 
tbls <- readHTMLTable(ctnt)   
tbls <- tbls[names(tbls)!="NULL"]
names(tbls) <- read_html(gsub("<!--[if gte mso 9]>", "", ctnt, fixed=TRUE)) %>% 
    xml_find_all(".//name") %>% 
    xml_text()

库（httr）
库（XML）
库（xml2）
图书馆（magrittr）
ctnt%
内容（“文本”，编码=“UTF8”）
tbls这是一个伟大的解决方案！我想知道是否有办法为列表中的名称指定选项卡名称。添加了一些设置名称的内容，但需要仔细检查
library(httr)
library(XML)
library(xml2)
library(magrittr)
ctnt <- GET("https://www.sec.gov/Archives/edgar/data/320193/000119312511192493/Financial_Report.xls") %>% 
    content("text", encoding="UTF8") 
tbls <- readHTMLTable(ctnt)   
tbls <- tbls[names(tbls)!="NULL"]
names(tbls) <- read_html(gsub("<!--[if gte mso 9]>", "", ctnt, fixed=TRUE)) %>% 
    xml_find_all(".//name") %>% 
    xml_text()