R/fs_author_search.R

In ropensci/rfigshare: An R Interface to 'figshare'

#' Search for an author
#'
#' Function to search for authors 
#' @author Carl Boettiger \email{cboettig@@gmail.com}
#' @param author a string to search for (name, can include spaces)
#' @param session (optional) the authentication credentials from \code{\link{fs_auth}}. If not provided, will attempt to load from cache as long as figshare_auth has been run. 
#' @param debug toggle debugging mode
#' @return output of PUT request (invisibly)
#' @seealso \code{\link{fs_auth}}
#' @references \url{http://api.figshare.com}
#' @import httr
#' @export
#' @examples \dontrun{
#' fs_author_search("Boettiger") 
#' } 
fs_author_search <- 
  function(author, session = fs_get_auth(), debug = FALSE){
    base <- "http://api.figshare.com/v1"
    method <- paste("my_data/authors?search_for=", author, sep = "")
    request <- paste(base, method, sep = "/")
    request <- build_url(parse_url(request)) # perform % encoding
    output <- GET(request, config(token = session))
    if(debug | output$status_code != 200)
      output
    else {
      # FIXME check that we don't need to loop over pages for more than 10 authors 
      x <- RJSONIO::fromJSON(content(output, "text"))
      lapply(x$items, 
             function(o){
               class(o) <- "fs_object"
               o
             })
    }
  }