R/searchArtist.R

In tiagomendesdantas/Rspotify: Access to Spotify API via R

#' @title
#'Search for an specific Artist
#'
#'
#'function to get basic info about a searched Artist
#'@param artistName Name of the artist
#'@param token An OAuth token created with \code{spotifyOAuth}.
#' @examples \dontrun{
#' ## Example
#' ## my_oauth <- spotifyOAuth(app_id="xxxx",client_id="yyyy",client_secret="zzzz")
#' ## save(my_oauth, file="my_oauth")
#' ## load("my_oauth")
#' ## foofighters <- searchArtist("Foo+fighters",token=my_oauth)
#' }
#'@export

#function to search for a specifc artist
#note that if you don't provide a specifc name the function will return possible cases that match
#sorted by popularity
searchArtist<-function(artistName,token){
  req <- httr::GET(paste0("https://api.spotify.com/v1/search?q=", gsub(' ', '+', artistName),"&type=artist"), httr::config(token = token))
  json1 <- httr::content(req)
  x<-json1$artists$items
  display_name=unlist(lapply(x,function(x)x$name))
  id=unlist(lapply(x,function(x)x$id))
  popularity<-unlist(lapply(x,function(x)x$popularity))
  followers<-unlist(lapply(x,function(x)x$followers$total))
  genres<-unlist(lapply(x,function(x)paste(x$genres,collapse=",")))
  type<-unlist(lapply(x,function(x)x$type))
  dados = data.frame(display_name, id, popularity,followers,genres,type, stringsAsFactors = F)
  return(dados)
}