Rselenium - 弹出窗口

Question

Rselenium - 弹出窗口

rseleniumpopupwindowrselenium

4

我希望使用RSelenium和Firefox浏览器从网站下载文件。我已经正确执行了所有步骤（导航、选择正确的元素并输入所需内容），现在我点击“下载”按钮，然后Firefox弹出一个窗口询问我是否要下载该文件或者“用其他方式打开...”。

不幸的是，由于隐私限制，我无法提供示例。

我的问题是：当需要时，如何切换到弹出窗口/警报并单击“确定”？

我尝试了以下方法，但均未成功：

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

我也尝试了这种方法。

remDrv$getWindowHandles()

但即使弹出窗口已经打开，该命令仍只返回一个窗口（开始的那个窗口，而不是弹出窗口），因此我无法使用：

remDrv$switchToWindow()

如何切换到弹出窗口？

有什么想法吗？谢谢。

- GrilloRob

请先阅读此链接：http://ardesco.lazerycode.com/index.php/2012/07/how-to-download-files-with-selenium-and-why-you-shouldnt/ - reinierpost

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- jdharrison · Accepted Answer

你看到的不是弹窗，而是下载对话框。所有浏览器中的下载对话框都是原生的, 不能通过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()