StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<pre><code>library(RCurl) library(XML) # Download page using RCurl # You may need to set proxy details, etc., in the call to getURL theurl <- "http://en.wikipedia.org/wiki/Brazil_national_football_team" webpage <- getURL(theurl) # Process escape characters webpage <- readLines(tc <- textConnection(webpage)); close(tc) # Parse the html tree, ignoring errors on the page pagetree <- htmlTreeParse(webpage, error=function(...){}) # Navigate your way through the tree. It may be possible to do this more efficiently using getNodeSet body <- pagetree$children$html$children$body divbodyContent <- body$children$div$children[[1]]$children$div$children[[4]] tables <- divbodyContent$children[names(divbodyContent)=="table"] #In this case, the required table is the only one with class "wikitable sortable" tableclasses <- sapply(tables, function(x) x$attributes["class"]) thetable <- tables[which(tableclasses=="wikitable sortable")]$table #Get columns headers headers <- thetable$children[[1]]$children columnnames <- unname(sapply(headers, function(x) x$children$text$value)) # Get rows from table content <- c() for(i in 2:length(thetable$children)) { tablerow <- thetable$children[[i]]$children opponent <- tablerow[[1]]$children[[2]]$children$text$value others <- unname(sapply(tablerow[-1], function(x) x$children$text$value)) content <- rbind(content, c(opponent, others)) } # Convert to data frame colnames(content) <- columnnames as.data.frame(content) </code></pre> <p><strong>Edited to add:</strong></p> <p>Sample output</p> <pre><code> Opponent Played Won Drawn Lost Goals for Goals against % Won 1 Argentina 94 36 24 34 148 150 38.3% 2 Paraguay 72 44 17 11 160 61 61.1% 3 Uruguay 72 33 19 20 127 93 45.8% ... </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload