R/get_powerstats.R

In Edgar-Zamora/superheroR: Superhero API Wrapper

#'  Call that gets all the powerstats for 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 powerstats of the specific superhero.
#'
#' @export
#'
#'

get_powerstats <- 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}/powerstats')

      results <- GET(url = base_url)

      powerstats_df <- fromJSON(rawToChar(results$content)) %>%
         as_tibble()

      return(powerstats_df)

   } else{

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

      results <- GET(url = base_url)

      powerstats_df <- fromJSON(rawToChar(results$content)) %>%
      as_tibble()

      return(powerstats_df)
   }

}