Walmes e colegas, bom dia!

Fins uns testes, mas ainda não pude finalizar... De qualquer modo vou postar porque acredito que possa ajudar...

A dificuldade que vejo é que os dados não estão no HTML propriamente, mas sim no código JavaScript embutido.

### <code r>

sapply(c("RCurl", "XML", "RJSONIO"), require, character.only=T)

webpage <- readLines(tc <- textConnection(webpage)); close(tc)

# pagetree <- htmlTreeParse(webpage, error=function(...){}, useInternalNodes = TRUE)

sel <- grep("DataStore.prime\\(\\'stage-player-stat\\'", webpage) ### localiza linha com var

data <- webpage[sel] ### seleciona linha

data <- gsub("^.*DataStore.*\\[|\\]);", "", data) ### limpeza para deixar no formato JSON

data2 <- gsub(",\\{", "@@@\\{", data) ### inserir quebra

list <- unlist(strsplit(tmp, '@@@')) ### quebrar múltiplas linhas

fromJSON(list[1])

fromJSON(list[2])

fromJSON(list[20])

### </code>

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