Defines functions get_song_media

Documented in get_song_media

#' @title Get Song Media
#' @name get_song_media
#' @description This function gets 'genius' media information
#' @author Alberto AlmuiƱa
#' @param song_id Genius Song ID
#' @param access_token Genius Web API token. Defaults to Sys.getenv('GENIUS_API_TOKEN').
#' @return
#' Returns a tibble with the media's information
#' @details To use this function, you need to first use 'search_genius_song' to get the song ID.
#' This function returns the provider (YouTube, Spotify ..), the type (audio, video) and a link for the content.
#' @export
#' @examples
#' \dontrun{
#' get_song_media('55882')
#' }

get_song_media<-function(song_id, access_token = Sys.getenv('GENIUS_API_TOKEN')){

  res<-RETRY('GET', url = str_glue('https://api.genius.com/songs/{song_id}'),
             query = list(access_token = access_token),
             quiet = TRUE) %>% content

  if(res$meta$status != 200){stop(str_glue('Information not found for song_id: {song_id}'))}


  if(length(info)==0){stop(str_glue('No media information found for the song id: {song_id}'))}

  media<-purrr::map_df(seq(length(info)), function(this_media){


      song_id = song_id,
      provider = med$provider,
      type = med$type,
      url = med$url




Try the rgenius package in your browser

Any scripts or data that you put into this service are public.

rgenius documentation built on July 1, 2020, 10:28 p.m.