我想使用 RSelenium 和 Firefox 浏览器从网站下载文件。
我做的每件事都是正确的(导航、选择正确的元素并写下我想要的内容);
现在我单击“下载”按钮,然后会打开一个 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()
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)