
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 <- getURL("http://www.whoscored.com/Teams/1232") 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 <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]