您看到的不是弹出窗口，而是下载对话框。下载对话框在所有浏览器中都是本地的，不能用Javascript进行控制。您可以将Firefox配置为针对某些文件类型自动下载。您没有给我们很多信息。可以通过设置适当的配置文件来完成。这是一个下载一些财务数据的示例。我们在定制配置文件中设置了四个选项。在下载文件之前，我们必须跳过一些选择。
require(RSelenium)fprof <- makeFirefoxProfile(list(browser.download.dir = "C:\temp", browser.download.folderList = 2L, browser.download.manager.showWhenStarting = FALSE, browser.helperApps.neverAsk.saveToDisk = "application/zip"))RSelenium::startServer()remDr <- remoteDriver(extraCapabilities = fprof)remDr$open(silent = TRUE)remDr$navigate("https://www.chicagofed.org/applications/bhc_data/bhcdata_index.cfm")# click year 2012webElem <- remDr$findElement("name", "SelectedYear")webElems <- webElem$findChildElements("css selector", "option")webElems[[which(sapply(webElems, function(x){x$getElementText()}) == "2012" )]]$clickElement()# click required quarterwebElem <- remDr$findElement("name", "SelectedQuarter")Sys.sleep(1)webElems <- webElem$findChildElements("css selector", "option")webElems[[which(sapply(webElems, function(x){x$getElementText()}) == "4th Quarter" )]]$clickElement()# click buttonwebElem <- remDr$findElement("id", "downloadDataFile")webElem$clickElement()
