我想使用Firefox浏览器，使用RSelenium从网站下载文件。我正确地完成了所有操作（导航，选择正确的元素并写下我想要的内容）；现在，我单击“下载”按钮，然后打开一个Firefox弹出窗口，并询问我是否要下载文件或“用…打开”。
不幸的是，由于隐私限制，我无法编写示例。
我的问题是：如何在需要时切换到弹出窗口/警报并单击“确定”？
我尝试了以下方法，但均未成功：
remDrv$acceptAlert() -> tells me: NoAlertOpenError remDrv$executeScript("driver.switchTo().alert().accept()")
我也试过了
remDrv$getWindowHandles()
但是，即使打开了弹出窗口，该命令也只返回一个窗口给我（开始的窗口不是弹出窗口），因此我无法使用：
remDrv$switchToWindow()
切换到弹出窗口。
有任何想法吗？谢谢
您看到的不是弹出窗口，而是下载对话框。下载对话框在所有浏览器中都是本地的，不能用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 2012 webElem <- remDr$findElement("name", "SelectedYear") webElems <- webElem$findChildElements("css selector", "option") webElems[[which(sapply(webElems, function(x){x$getElementText()}) == "2012" )]]$clickElement() # click required quarter webElem <- 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 button webElem <- remDr$findElement("id", "downloadDataFile") webElem$clickElement()
