<div dir="ltr">Senhores, bom dia!<div><br></div><div>Melhorei o código anterior e agora já está capturando os dados em um objeto do tipo lista. </div><div><br></div><div>Falta passar de lista pra data.frame... Ainda não fiz porque os elementos da lista estão com tamanhos diferentes e tenho que pensar numa estratégia. Se tiverem interesse e puderem finalizar, fiquem à vontade.</div>
<div><div><br></div><div>### <code r></div><div><div><font face="courier new, monospace">setwd("C:/LAB/RBAS/dataMining")</font></div><div><font face="courier new, monospace">sapply(c("RCurl", "XML", "RJSONIO"), require, character.only=T)</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">html.ori <- getURL("<a href="http://www.whoscored.com/Teams/1232">http://www.whoscored.com/Teams/1232</a>")</font></div>
<div><font face="courier new, monospace">html.lin <- readLines(tcon <- textConnection(html.ori)); close(tcon)</font></div><div><font face="courier new, monospace"># pagetree <- htmlTreeParse(html.lin, error=function(...){}, useInternalNodes = TRUE)</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">sel      <- grep("DataStore.prime\\(\\'stage-player-stat\\'", html.lin)</font></div><div><font face="courier new, monospace">data     <- html.lin[sel]</font></div>
<div><font face="courier new, monospace">djson    <- gsub("^.*DataStore.*\\[(.*)\\]);", "\\[\\1\\]", data)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">res      <- fromJSON(djson)</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">res</font></div></div><div><font face="courier new, monospace">### <code></font></div><div><br></div><div><br></div>
</div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br></div></div>