使用RSelenium下载Excel文件

Question

我需要从数据库下载excel文件（我无法提供代码的原因）。我可以使用RSelenium点击下载图标。接下来发生的是通常的对话窗口打开，询问我是否要保存文件或打开它。如何禁止显示此消息并将文件下载到文件夹中？

我发现了一个关于pdf here的类似问题。答案表明应该可以通过指定extraCapabilities：

来实现

remDr <- remoteDriver(remoteServerAddr = "localhost", 
                  browserName = "firefox",
                  extraCapabilities = someCapabilities,
                  port = 4444)

不幸的是，我无法弄清楚如何正确设置extraCapabilities。

有人可以暗示我的方向吗？谢谢你的帮助。

修改

我知道提供的解决方案here，希望能够使用extraCapabilities - 方法。

Answer 1

以下是一个例子：

library(RSelenium)
startServer()
remDr <- remoteDriver(extraCapabilities = makeFirefoxProfile(list(
  "browser.helperApps.neverAsk.saveToDisk"="application/vnd.openxmlformats-officedocument.spreadsheetml.sheet")
))
remDr$open()
url <- "http://www.iwh-halle.de/e/fdz/IntBankLib/data/downloads/databases.xlsx"
remDr$navigate(url)
file.exists(file.path("~/Downloads/", basename(url)))
# [1] TRUE

请注意，content type必须匹配：

library(httr)
HEAD(url)$headers$`content-type`
# [1] "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"

虽然您应该能够使用*之类的通配符。