R/get_artist_videos.R

In mukul13/rechonest: R Interface to Echo Nest API

#' To get a list of video documents found on the web related to an artist
#'
#' @param api_key Echo Nest API key
#' @param name artist name
#' @param id Echo Nest ID
#' @param results the number of results desired
#' @param start the desired index of the first result returned
#' @return data frame giving artist's videos
#' @export
#' @examples
#' \dontrun{
#' data=get_artist_videos(api_key,name="coldplay")
#' }

get_artist_videos=function(api_key,name=NA,id=NA,start=NA,results=15)
{
  url=paste("http://developer.echonest.com/api/v4/artist/video?api_key=",api_key,"&format=json",sep="")
  if(results>100)
  {
    stop("results should be less than or equal to 100")  
  }
  final=""
  if(!is.na(name))
  {
    name=gsub(" ","+",name)
    url=paste(url,"&name=",name,sep="")
  }
  if(!is.na(id))
  {
    url=paste(url,"&id=",id,sep="")
  }
  
  if(!is.na(start))
  {
    url=paste(url,"&start=",start,sep="")
  }
  
  url=paste(url,"&results=",results,sep="")
  
  rd=getURL(url)
  rd=fromJSON(rd)
  
  total=rd$response$total
  data=rd$response$video
  final=data
  final$total=total
  
  final=as.data.frame(final)
  final
}