R/getLicenses.R

In FrancescaMancini/FlickrAPI_EABhackathon: Get image information from Flickr

#' Get a lookup table of licenses
#' 
#' @return a dataframe of license definitions
#' @export
#' @name getLicenses
#' @examples
#' # run a workflow, using the logistic regression model
#' \dontrun{
#'
#' getLicenses()
#' 
#' }

getLicenses <-
  function(){
    
    auth$key
    
    baseURL <- paste("https://api.flickr.com/services/rest/?method=flickr.photos.licenses.getInfo&api_key=",api_key,sep="")   #set base URL
    
    getLicense_data <- getPhotos_data <- xmlRoot(
                                          xmlTreeParse(
                                            getURL(baseURL,
                                                   ssl.verifypeer = FALSE,
                                                   useragent = "flickr")
                                            ,useInternalNodes = TRUE))
    
    id <- xpathSApply(getLicense_data, "//license", xmlGetAttr, "id")                #extract license id
    name <- xpathSApply(getLicense_data, "//license", xmlGetAttr, "name")            #extract license name
    
    tmp_df <- data.frame(id, name, stringsAsFactors = FALSE)
    
    return(tmp_df)
  }