R/twitch_auth.R

In KoderKow/twitchr: R Interface for the 'Twitch API'

#' Get auth token
#'
#' Get started with the Twitch API [here](https://dev.twitch.tv/docs/api/). `TWITCH_CLIENT_ID` and `TWITCH_SECRET` need to be set in the *.Renviron* file. Set these values in *.Renviron* with `usethis::edit_r_environ()`; ex: `TWITCH_CLIENT_ID=abc123`.
#'
#' @param client_id A character. Twitch App ID.
#' @param client_secret A character. Twitch App Secret.
#'
#' @return Invisible authorization data.
#'
#' @family Authenticate
#' @export
#'
#' @examples
#' \dontrun{
#' library(twitchr)
#'
#' twitch_auth()
#' }
twitch_auth <- function(
  client_id = Sys.getenv("TWITCH_CLIENT_ID"),
  client_secret = Sys.getenv("TWITCH_SECRET")
) {
  if (client_id == "" | is.null(client_id)) {
    usethis::ui_stop("Twitch Client ID is not detected. Set TWITCH_CLIENT_ID in your .Renviron. For help run {usethis::ui_value('vignette(\"authentication-set-up\", package = \"twitchr\")')} in the R console.")
  }

  if (client_secret == "" | is.null(client_secret)) {
    usethis::ui_stop("Twitch Secret is not detected. Set TWITCH_SECRET in your .Renviron. For help run {usethis::ui_value('vignette(\"authentication-set-up\", package = \"twitchr\")')} in the R console.")
  }

  query_list <- list(
    client_id = client_id,
    client_secret = client_secret,
    grant_type = "client_credentials"
  )

  response <-
    httr::POST(
      url = "https://id.twitch.tv/oauth2/token",
      query = query_list
    )

  check_status(response)

  response_content <- httr::content(response)

  httr::add_headers(
    "Client-ID" = client_id,
    Authorization = paste0("Bearer ", response_content$access_token)
  ) %>%
    httr::set_config()

  return(invisible(response_content))
}