R/Utilities.R

In Freguglia/rTwitchAPI: A Twitch.tv API wrapper for R

#Creates the query list appropriately.
#' @importFrom stats setNames
query_list <- function(...){
  a <- list(...) 
  as.list(
    setNames(
      unlist(a), rep(names(a), sapply(a, length))))
}

#Checks if Client-ID is set.
provided_client_id <- function(){
  if("Client-ID" %in% names(options()$httr_config$headers)) return(TRUE)
  return(FALSE)
}

#No Client-ID error
#err_no_id <- 'stop("Please set a Client-ID value with twitch_auth().")'