無法下載xls文件，同時通過搬運工

使用RSelenium我一直在試圖下載來自特定網站上的Excel文件（.xls的）。我在下面粘貼我的整個R代碼（在建立碼頭集裝箱後）。無法下載xls文件，同時通過搬運工

ePrefs = makeFirefoxProfile(
list(
browser.download.dir = "/home/seluser/Downloads", 
"browser.download.folderList" = 2L, 
"browser.download.manager.showWhenStarting" = FALSE, 
"browser.helperApps.neverAsk.saveToDisk" = "application/vnd.ms-excel, 
    application/xls, application/x-xls, application/vnd-xls, 
    application/vnd.openxmlformats-officedocument.spreadsheetml.sheet" 
)) 

    remDr = remoteDriver(extraCapabilities = ePrefs, port = 4445) 
    remDr$open() 
    remDr$navigate("https://www.aeaweb.org/joe/listings?") 

    webelem1 = remDr$findElement(using = 'id', "published-date") 
    webelem1$clickElement() 

    webelem2 = remDr$findElement("css", "[value = 'week']") 
    webelem2$clickElement() 

    webelem3 = remDr$findElement("css", "[value = 'Apply Filter']") 
    webelem3$clickElement() 
    Sys.sleep(10) 

    webelem4 = remDr$findElement("css", "[feature = 'download']") 
    webelem4$clickElement() 

webelem5 = remDr$findElement("xpath", 
"/html/body/main/div/section/div/div[2]/div[2]/div/ul/li[3]/a") 
webelem5$clickElement()

一切正常，但在最後一步（點擊）硒瀏覽器仍然打開了平時的對話窗口，詢問我是否要保存文件或打開它，即使我有壓倒一切的命令代碼的eprefs位。

我手工下載，最後點擊應該直接下載文件並驗證內容類型是應用程序/ vnd.ms - Excel中。有什麼我做錯了嗎？任何幫助表示讚賞。

來源

2017-06-21 Ron Banerjee

當您啓動Docker容器時，是否在HOST和容器之間映射了下載位置？看到https://stackoverflow.com/questions/42293193/rselenium-on-docker-where-are-files-downloaded和https://stackoverflow.com/questions/42607389/download-file-with-rselenium-docker-toolbox – jdharrison

的MIME類型服務器返回是application/force-download。將此添加到您的列表中，並觀察映射的主機和容器下載位置，以下內容適用於我：

# initiate docker container mapping download locations 
# here HOST is linux 
# docker run -d -p 4445:4444 -p 5901:5900 -v /home/john/test:/home/seluser/Downloads selenium/standalone-firefox-debug:2.53.1 

library(RSelenium) 
ePrefs <- makeFirefoxProfile(
    list(
    browser.download.dir = "/home/seluser/Downloads", 
    "browser.download.folderList" = 2L, 
    "browser.download.manager.showWhenStarting" = FALSE, 
    "browser.helperApps.neverAsk.saveToDisk" = "application/vnd.ms-excel, 
    application/xls, application/x-xls, application/vnd-xls, 
    application/vnd.openxmlformats-officedocument.spreadsheetml.sheet, 
    application/force-download" 
)) 

remDr <- remoteDriver(extraCapabilities = ePrefs, port = 4445) 
remDr$open() 
remDr$navigate("https://www.aeaweb.org/joe/listings?") 

webelem1 <- remDr$findElement(using = 'id', "published-date") 
webelem1$clickElement() 

webelem2 <- remDr$findElement("css", "[value = 'week']") 
webelem2$clickElement() 

webelem3 <- remDr$findElement("css", "[value = 'Apply Filter']") 
webelem3$clickElement() 
Sys.sleep(10) 

webelem4 <- remDr$findElement("css", "[feature = 'download']") 
webelem4$clickElement() 

webelem5 = remDr$findElement("xpath", 
          "/html/body/main/div/section/div/div[2]/div[2]/div/ul/li[3]/a") 
webelem5$clickElement() 

list.files("/home/john/test/") 

> list.files("/home/john/test/") 
[1] "joe_resultset.xls"

來源

2017-07-09 06:53:04 jdharrison

無法下載xls文件，同時通過搬運工

回答

相關問題