R/get_omdb_item_actors.R

In ROMDB: Get 'OMDB' API Multiple Information

#' @title Get OMDB Item Actors
#' @name get_omdb_item_actors
#' @description This function returns a vector with the actors returned by the api (separated by commas).
#' @author Alberto Almuiña
#' @param omdb_id String with the omdb_id for a movie/series.
#' @param API_KEY OMBD Api Key. Default: Get the Api Key from system environment. Use Sys.setenv('API_KEY' = 'XXXXX'). More information in: http://www.omdbapi.com/apikey.aspx
#' @return
#' Return a vector with the actors of a movie/series.
#' @export
#' @examples
#' \dontrun{
#' get_omdb_item_actors(omdb_id = 'tt0120338')
#' }

get_omdb_item_actors<-function(omdb_id, API_KEY = Sys.getenv('API_KEY')){

  info<-get_omdb_item(omdb_id, API_KEY = API_KEY)[[1]] %>% .$actors

  actors<-str_split(info, pattern = ',') %>% flatten_chr() %>% str_trim(side = 'both')

  return(actors)

}