R/getauthors.r

In ropensci/rhindawi: R interface to the Hindawi Journals metadata and corpus

#' Get article authors in all papers in the corpus.
#' 
#' @import sacbox XML plyr ggplot2
#' @param plot Plot results or not. 
#' @param sumfxn Function to use to summarise article titles.
#' @return A list of authors if plot=FALSE, or a plot if else summarising authors.
#' @author Scott Chamberlain \email{myrmecocystus@@gmail.com}
#' @seealso \code{\link{getarticletitles}}.
#' @keywords authors
#' @details This function looks across all files locally and extracts authors.
#' @examples \dontrun{
#' authors <- getauthors()
#' }
#' @export
getauthors <- function(plot = FALSE, sumfxn = "length", ...){
  setwd("~/hindawi")
  tt <- dir()
  folders <- suppressWarnings(as.numeric(tt)[!is.na(as.numeric(tt))])
  yeardirs <- paste(getwd(), folders, sep="/")
  
  allarticlesdir_ <- list()
  journaldir_ <- list()
  articledir_ <- list()
  for(i in 1:length(yeardirs)) {
    journaldir <- paste(yeardirs[[i]], dir(yeardirs[[i]]), sep="/")
    journaldir_[[i]] <- journaldir
    for(j in 1:length(journaldir)) {
      articledir_[[j]] <- paste(journaldir[[j]], dir(journaldir[[j]]), sep="/") 
    }
    allarticlesdir_[[i]] <- articledir_
  }
  aa <- unnest(allarticlesdir_)[[1]]
  
  ggg <- llply(aa, getxml_authors, ...) # get authors
  
  if(plot == TRUE){  # plot histogram of number of authors per article
    qplot(laply(ggg, sumfxn), geom="histogram")
  } else {
    ggg
  }
}