R/get_image.R

In Edgar-Zamora/superheroR: Superhero API Wrapper

#' Call that provides the image of the superhero.
#'
#' @param access_token Required. Unique token obtained from the SuperHero API site. Token should be set to the environment and will be retrieved
#' that way.
#' @param character_id Required. The \href{https://superheroapi.com/ids.html}{Character ID} or name of the Superhero
#
#' @return Returns a dataframe with the work/occupation  of the specific superhero.
#' @export
#'
#' @import magick
#'


get_image <- function(access_token = Sys.getenv("SUPERHERO_TOKEN"), character_id) {

  if(is.character({{character_id}})) {

    load(file = here("data", "character_ids.rda"))

    cnvrt_char_str <- character_ids %>%
      filter(character == str_to_title({{character_id}})) %>%
      select(id) %>%
      pluck('id')

    base_url <- glue('https://superheroapi.com/api/{access_token}/{cnvrt_char_str}/image')

    results <- GET(url = base_url)

    image_df <- fromJSON(rawToChar(results$content)) %>%
      as_tibble() %>%
      pluck('url') %>%
      image_read() %>%
      image_scale("300")

    return(image_df)

  } else{

    base_url <- glue('https://superheroapi.com/api/{access_token}/{character_id}/image')

    results <- GET(url = base_url)

    image_df <- fromJSON(rawToChar(results$content)) %>%
      as_tibble() %>%
      pluck('url') %>%
      image_read() %>%
      image_scale("300")

    return(image_df)
  }

}