ScraperWikiExample

The code below fetches some WHO data from the ScraperWiki via its web API. The outcome should be equal to:

https://api.scraperwiki.com/api/1.0/datastore/sqlite?format=jsondict&name=who_outbreaks&query=select%20*%20from%20%60swdata%60%20order%20by%20%60date%60%20limit%2010

Try it out!

+ Show code- Hide code library(OpasnetBaseUtils) library("xtable") who_data = scraperwiki.json(name = "who_outbreaks", query = "select * from `swdata` order by `date` limit 10") mat <- matrix(unlist(who_data), ncol=5, byrow=TRUE) colnames(mat) <- names(who_data[[1]]) print(xtable(as.table(mat)), type="html", html.table.attributes="border=1 class='sortable'")

Another example - UK military deaths in Afghanistan

Parameter: Incident type Age Rank Location Force + Show code- Hide code library(OpasnetBaseUtils) library(xtable) data = scraperwiki.json(name = "bbc_-_uk_military_deaths_in_afghanistan", query = paste("select",type,"from `swdata`")) mat <- matrix(unlist(data), ncol=length(data[[1]]), byrow=TRUE) #colnames(mat) <- names(data[[1]]) # the match # i = match(type, names(data[[1]])) #smoke <- as.table(mat) #print(xtable(smoke), type="html", html.table.attributes="border=1 class='sortable'") # Get the incident types column only this time tab = table(mat[,1]) par(oma=c(0,14,0,0)) mp = barplot(sort(tab), main=paste("UK military deaths in Afghanistan -",type), horiz = TRUE, ylab="", xlab="deaths", col=rainbow(nrow(tab)), las=1)