儘管彈出式菜單通過R從互聯網下載文件

使用R從互聯網下載文件非常簡單，並且has been addressed previously。儘管彈出式菜單通過R從互聯網下載文件

我的問題是關於如何通過似乎阻止我的下載執行的彈出消息。具體來說，

download.file(url = "https://www.chicagofed.org/applications/bhc_data/bhcdata_index.cfm?DYR=2012&DQIR=4", destfile = "data/test.zip")

給我的垃圾小文件，而不是預期的18兆字節的文件，如果你去了the website，進入今年2012和季度4手動，你會得到。我懷疑問題在於，如手動執行時所看到的，彈出式窗口會中斷下載過程，詢問是保存還是打開文件。有沒有辦法自動通過彈出窗口（即通過download.file）？

來源

2014-02-21 zkurtz

請將firebug插件安裝到您的Firefox中，看看您在vistit和配置Web請求時會發生什麼。國際海事組織是2013年第一季度的要求更加複雜，需要進行詳細的分析。它使用cookies和啓動一些腳本動作......

[23：26：52.593] GET https://ews-sdc.federalreserve.org/dcslfh67p000004nku46ap9ku_7w8e/dcs.gif?&dcsdat=1393021612511&dcssip=www.chicagofed.org&dcsuri=https://www.chicagofed.org/applications/bhc_data/bhcdata_index.cfm&dcsref=https://www.chicagofed.org/applications/bhc_data/bhcdata_index.cfm%3FDYR=2012%26DQIR=4&WT.tz=1&WT.bh=23&WT.ul=de-DE&WT.cd=24&WT.sr=1920x1080&WT.jo=Yes&WT.ti=FormButton:BHCDATA&WT.js=Yes&WT.jv=1.8&WT.ct=unknown&WT.bs=1920x570&WT.fv=11.2&WT.slv=Not%20enabled&WT.tv=9.4.0&WT.dl=27&WT.ssl=1&WT.es=www.chicagofed.org/applications/bhc_data/bhcdata_index.cfm&WT.ce=2&WT.vt_f_tlh=1393021608&WT.vtvs=1393019653663&WT.vtid=84.139.146.195-3993071712.30355278&WT.co_f=84.139.146.195-3993071712.30355278&WT.nv=content [HTTP/1.1 200 OK 202ms]

來源

2014-02-21 22:15:35 huckfinn

這可以用硒做見https://github.com/ropensci/RSelenium。

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()

來源

2014-02-22 18:29:43 jdharrison

儘管彈出式菜單通過R從互聯網下載文件

回答

相關問題