Rselenium

Question

我想使用 RSelenium 和 Firefox 浏览器从网站下载文件。我做的一切都正确（导航，select 正确的元素并写下我想要的）；现在我单击 "download" 按钮，然后 firefox 弹出窗口打开并询问我是否要下载文件或 "open with..." 其他内容。

很遗憾，由于隐私限制，我无法编写示例。

我的问题是：如何切换到弹出窗口 window / 警报并在需要时单击 "OK"？

我尝试了以下方法但没有成功：

remDrv$acceptAlert()     -> tells me: NoAlertOpenError  
remDrv$executeScript("driver.switchTo().alert().accept()")

方法我也试过了

remDrv$getWindowHandles()

但即使弹出窗口打开，命令 return me one window 只有（开始的那个，不是弹出窗口），因此我无法使用：

remDrv$switchToWindow()

切换到弹出窗口 window。

有什么想法吗？谢谢

Answer 1

您看到的不是弹出窗口，而是下载对话框。下载对话框在所有浏览器中都是原生的，不能用 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()

Rselenium - 弹出窗口

Rselenium - Popup

selenium

r

popupwindow