使用 Selenium 和 docker 工具箱下载文件

Question

我正在尝试通过 Rselenium 下载文件，但看起来不可能。即使有一个简单的示例，我也无法下载：

1) 我已经安装了 docker 工具箱 (https://cran.r-project.org/web/packages/RSelenium/vignettes/RSelenium-docker.html)

2) 我运行了 firefox 独立映像：3.1.0，现在我正在测试旧的 2.52.0

3) 我已经在我的 R X64 3.3.2 上安装了 rselenium 包，并且我阅读了 stackoverflow 上的所有问题和答案

4) 我试过下面的代码，顺便说一下，当我分析 Firefox 选项 about:config 时，我没有找到“browser.download.dir”选项：

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"))
remDr <- remoteDriver(browserName = "firefox",remoteServerAddr = "192.168.99.100",port = 4445L,extraCapabilities = fprof)
remDr$open(silent = TRUE)
remDr$navigate("https://www.chicagofed.org/applications/bhc/bhc-home")
# 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()

6) 我没有错误但我没有文件

7) 最后，我想通过 Rselenium 下载此页面上的 excel 文件：

[链接]https://app2.msci.com/products/indexes/performance/country_chart.html?asOf=Feb%2028,%202010&size=30&scope=C&style=C&currency=15&priceLevel=0&indexId=83#

Answer 1

如果您在 Windows 上使用 Docker 工具箱，您可能会遇到映射卷的问题，请参阅 Docker : Sharing a volume on Windows with Docker toolbox

如果您在 Mac 或 Windows 上使用 Docker Machine，您的 Docker 守护程序只能有限地访问您的 OS X 或 Windows 文件系统。 Docker Machine 尝试自动共享您的 /Users (OS X) 或 C:\Users (Windows) 目录。

我在 Windows 10 机器上启动了 docker 工具箱的全新安装并运行了以下图像：

$ docker stop $(docker ps -aq)
$ docker rm $(docker ps -aq)
$ docker run -d -v //c/Users/john/test/://home/seluser/Downloads -p 4445:4444 -p 5901:5900 selenium/standalone-firefox-debug:2.53.1

注意：我们映射到 Users/john 空间中的一个目录。用户 john 正在运行 docker 工具箱

运行以下代码

require(RSelenium)
fprof <- makeFirefoxProfile(list(browser.download.dir = "home/seluser/Downloads"
                             ,  browser.download.folderList = 2L
                             , browser.download.manager.showWhenStarting     = FALSE
                             , browser.helperApps.neverAsk.saveToDisk =  "application/zip"))
remDr <- remoteDriver(browserName = "firefox",remoteServerAddr = "192.168.99.100",port = 4445L,extraCapabilities = fprof)
remDr$open(silent = TRUE)
remDr$navigate("https://www.chicagofed.org/applications/bhc/bhc-home")
# 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()

并检查映射的下载文件夹

> list.files("C://Users/john/test")
[1] "bhcf1212.zip"
> 

Answer 2

最后我决定为 Windows (17.03.0) 稳定安装 docker。 我需要减少可用 cpu 的数量（减少到 1）和可用的内存（减少到 1GB）。 我也共享了我的 c（顺便说一句，必须进行密码会话，否则您无法共享目录 之后我重新启动了我的电脑 在 R 侧，不要忘记删除： remoteServerAddr = "192.168.99.100" 我得到了文件。

我现在担心的是 docker 的稳定性，有时它运行，有时不运行。

非常感谢约翰的帮助