команда Rselenium для «сохранить ссылку как»

Question

(предупреждение, панель, медленно обучения R)

Привет Там,

Я пытаюсь автоматически загружать данные с веб-сайта с помощью R. Сайт использует SharePoint и после запроса (R download from aspx in https getting website instead of CSV) кто-то указал мне на RSelenium.

Что мне нужно, чтобы загрузить CSV файлы из адресов, как это: https://www.paoilandgasreporting.state.pa.us/publicreports/Modules/Production/ProductionByCountyExport.aspx?UNCONVENTIONAL_ONLY=false&INC_HOME_USE_WELLS=true&INC_NON_PRODUCING_WELLS=true&PERIOD=15AUGU&COUNTY=ALLEGHENY

Но прежде мне нужно принять соглашение («щелчок» Я делаю с RSelenium) Код здесь:

# Using RSelenium to save file 
##Installing the package if needed 
install.packages("RSelenium") 
##Activating 
library("RSelenium") 
checkForServer() 
startServer() 
#I had to start the server manually! 
remDr <- remoteDriver() 
remDr 
remDr$open() 
#open website and accepting conditions 
remDr$navigate("https://www.paoilandgasreporting.state.pa.us/publicreports/Modules/Welcome/Agreement.aspx") 
AgreeButton<-remDr$findElement(using = 'id', value="MainContent_AgreeButton") 
AgreeButton$highlightElement() 
AgreeButton$clickElement() 

remDr$navigate("https://www.paoilandgasreporting.state.pa.us/publicreports/Modules/Production/ProductionByCountyExport.aspx?UNCONVENTIONAL_ONLY=false&INC_HOME_USE_WELLS=true&INC_NON_PRODUCING_WELLS=true&PERIOD=15AUGU&COUNTY=ALLEGHENY") 

Моей проблема: , что я не могу найти команду в RSelenium для «сохранить ссылку как»

я понял, что мне нужно найти что-то типа:

CSVurl<-remDr$navigate ("https://www.paoilandgasreporting.state.pa.us/publicreports/Modules/Production/ProductionByCountyExport.aspx?UNCONVENTIONAL_ONLY=false&INC_HOME_USE_WELLS=true&INC_NON_PRODUCING_WELLS=true&PERIOD=15AUGU&COUNTY=ALLEGHENY")remDr$navigate("https://www.paoilandgasreporting.state.pa.us/publicreports/Modules/Production/ProductionByCountyExport.aspx?UNCONVENTIONAL_ONLY=false&INC_HOME_USE_WELLS=true&INC_NON_PRODUCING_WELLS=true&PERIOD=15AUGU&COUNTY=ALLEGHENY") 

CSVurl$saveLinkAs(fileName) 

Существует ли это? Есть ли лучшие способы сделать это в R?

Заранее спасибо

Answer 1

`# Using RSelenium to save file 
##Installing the package if needed 

##Activating 
library(RSelenium) 
checkForServer() 
startServer() 
#I had to start the server manually! 

cprof<-makeFirefoxProfile(list(
    "browser.helperApps.neverAsk.saveToDisk"='text/plain, application/vnd.ms-excel, text/csv, text/comma-separated-values, application/octet-stream', 
    "browser.helperApps.neverAsk.openFile"='text/plain, application/vnd.ms-excel, text/csv, text/comma-separated-values, application/octet-stream' 

)) 
remDr <- remoteDriver(extraCapabilities=cprof) 
remDr$open() 
#open website and accepting conditions 
remDr$navigate("https://www.paoilandgasreporting.state.pa.us/publicreports/Modules/Welcome/Agreement.aspx") 
AgreeButton<-remDr$findElement(using = 'id', value="MainContent_AgreeButton") 
AgreeButton$highlightElement() 
AgreeButton$clickElement() 

remDr$navigate("https://www.paoilandgasreporting.state.pa.us/publicreports/Modules/Production/ProductionByCountyExport.aspx?UNCONVENTIONAL_ONLY=false&INC_HOME_USE_WELLS=true&INC_NON_PRODUCING_WELLS=true&PERIOD=15AUGU&COUNTY=ALLEGHENY")` 

Для доступа к файлу вы должны искать загрузки по умолчанию папку на светлячок в.

Если вы получили сообщение о том, что R не может создать cprof или не может закрепить содержимое, вам, вероятно, потребуется установить RTools.

От here

Проверьте точную версию R, которые были установлены.

Надеюсь, это поможет.