R Function to Chart Clients Used for Search Results

FindClients.R

findClients <- function(searchString,queryLimit=1000, pie=TRUE,numToPlot=10){
  #thanks http://stackoverflow.com/questions/5060076/convert-html-character-entity-encoding-in-r
  html2txt <- function(str) {
    xpathApply(htmlParse(str, asText=TRUE),
               "//body//text()", 
               xmlValue)[[1]] 
  }
   
  
  library(XML)
  library(twitteR)
  tweets <- searchTwitter(searchString,n=queryLimit)
  sources <- sapply(tweets,function(x) x$getStatusSource())
  sourcesDecoded  <- sapply(sources,html2txt,USE.NAMES=FALSE)
  sourcesXML <- sapply(sourcesDecoded,xmlParseString,USE.NAMES=FALSE)
  clients <- sapply(sourcesXML,xmlValue,USE.NAMES=FALSE)
  clientsdf <- as.data.frame(table(clients))
  ordered <- clientsdf[order(clientsdf$Freq,decreasing=TRUE),]
  orderedSubset <- ordered[1:numToPlot,]
  pie(orderedSubset$Freq,labels = orderedSubset$clients,main=searchString)
  return(ordered)
}