R/get_artist_familiarity.R

#' To get artist's familiarity
#'
#' @param api_key Echo Nest API key
#' @param name artist's name
#' @param id artist's id
#' @return data frame giving artist's familiarity
#' @export
#' @examples
#' \dontrun{
#' data=get_artist_familiarity(api_key,name="coldplay")
#' }

get_artist_familiarity=function(api_key,name=NA,id=NA)
{
  url=paste("http://developer.echonest.com/api/v4/artist/profile?api_key=",api_key,"&format=json",sep="")
  
  if(!is.na(name))
  {
    name=gsub(" ","+",name)
    url=paste(url,"&name=",name,sep="")
  }
  if(!is.na(id))
  {
    url=paste(url,"&id=",id,sep="")
  }
  
  url=paste(url,"&bucket=familiarity",sep="")
  rd=getURL(url)
  rd=fromJSON(rd)
  
  data=rd$response$artist
  data
}
mukul13/REchoNest documentation built on May 23, 2019, 8:21 a.m.