Senhores, bom dia!

Melhorei o código anterior e agora já está capturando os dados em um objeto do tipo lista. 

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.

### <code r>
setwd("C:/LAB/RBAS/dataMining")
sapply(c("RCurl", "XML", "RJSONIO"), require, character.only=T)

html.ori <- getURL("http://www.whoscored.com/Teams/1232")
html.lin <- readLines(tcon <- textConnection(html.ori)); close(tcon)
# pagetree <- htmlTreeParse(html.lin, error=function(...){}, useInternalNodes = TRUE)

sel      <- grep("DataStore.prime\\(\\'stage-player-stat\\'", html.lin)
data     <- html.lin[sel]
djson    <- gsub("^.*DataStore.*\\[(.*)\\]);", "\\[\\1\\]", data)

res      <- fromJSON(djson)

res
### <code>



Éder Comunello <comunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]