<div dir="ltr"><div class="gmail_extra">Walmes e colegas, bom dia!</div><div class="gmail_extra"><br></div><div class="gmail_extra">Fins uns testes, mas ainda não pude finalizar... De qualquer modo vou postar porque acredito que possa ajudar...</div>
<div class="gmail_extra"><br></div><div class="gmail_extra">A dificuldade que vejo é que os dados não estão no HTML propriamente, mas sim no código JavaScript embutido. <br><div><br></div><div><div>### <code r></div>
<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">webpage <- getURL("<a href="http://www.whoscored.com/Teams/1232">http://www.whoscored.com/Teams/1232</a>")</font></div>
<div><font face="courier new, monospace">webpage <- readLines(tc <- textConnection(webpage)); close(tc)</font></div><div><font face="courier new, monospace"># pagetree <- htmlTreeParse(webpage, 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\\'", webpage) ### localiza linha com var</font></div>
<div><font face="courier new, monospace">data    <- webpage[sel] </font><span style="font-family:'courier new',monospace">### seleciona linha</span></div><div><font face="courier new, monospace">data    <- gsub("^.*DataStore.*\\[|\\]);", "", data) ### limpeza para deixar no formato JSON</font></div>
<div><font face="courier new, monospace">data2   <- gsub(",\\{", "@@@\\{", data) ### inserir quebra</font></div><div><font face="courier new, monospace">list    <- unlist(strsplit(tmp, '@@@')) </font><span style="font-family:'courier new',monospace">### quebrar múltiplas linhas</span></div>
<div><font face="courier new, monospace"><br></font></div><div><span style="font-family:'courier new',monospace">fromJSON(list[1])</span><br></div><div><font face="courier new, monospace">fromJSON(list[2])</font></div>
<div><font face="courier new, monospace">fromJSON(list[20])</font></div></div></div><div><font face="courier new, monospace">### </code></font></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></div></div></div>