1
我需要填写页面的领域月份和年份:填表不Rselenium
通过这一点,我已经设定在Rselenium以下和它的作品
#library
library(RSelenium)
#browser parameters
mybrowser<-remoteDriver(browserName = "chrome")
mybrowser$open(silent = TRUE)
mybrowser$setTimeout(type = "page load", milliseconds =1000000)
mybrowser$setImplicitWaitTimeout(milliseconds = 1000000)
url<-paste("http://www.svs.cl/institucional/mercados/entidad.php?mercado=S&rut=99588060&grupo=&tipoentidad=CSVID&row=AABaHEAAaAAAB7uAAT&vig=VI&control=svs&pestania=3",sep="")
#start navigation
mybrowser$navigate(url)
webElem$clickElement()
wxbox<-mybrowser$findElement(using="class","bordeInput2")
wxbox$sendKeysToElement(list("09"))
wxbox<-mybrowser$findElement(using="id","aa")
wxbox$sendKeysToElement(list("2016"))
wxbutton<-mybrowser$findElement('xpath',"//*[@id='fm']/div[2]/input")
wxbutton$clickElement()
不过,我倒要看看使用rvest或rcurl一个解决方案,我已经尝试过,并没有为我工作。如果有人能帮助我,我会很感激。
我做了一个尝试是
library(RCurl)
library(XML)
form <- postForm("Http://www.svs.cl/institucional/mercados/entidad.php?mercado=S&rut=99588060&grupo=&tipoentidad=CSVID&row=AABaHEAAaAAAB7uAAT&vig=VI&control=svs&pestania=3", Year = 2010, Month = 2)
doc <- htmlParse(form) pkids <- xpathSApply(doc, xmlAttrs)
pkids
data <- lapply(pkids)
tab <- readHTMLTable(data[[1]], which = 1)
首先,谢谢
你好,非常感谢你亩回答你的答案^^。一次偶然的机会,你就会知道如何让你得到网页上的表格,例如所谓的“斯卡德SITUACIÓNFINANCIERA个人 - EXPRESADO EN MILES DE比索”表 – user119144
看看'html_table' – Rentrop
是的,我试过吗?后续的代码:“一<-read_html(URL) 一个< - html_nodes(一个,的xpath = '// * [@ ID = ”activos_ifrs“] /表[2]') 一个<-html_table(A,填= TRUE)“但我得到列表() – user119144