R/get_categories.R

In opentriviadb: Interface to the 'Open Trivia Database'

#' get_categories
#'
#' Get all available categories and their ids
#'
#' @return A 2 column dataframe of category and id
#' @export
#'
#' @examples
#' library(opentriviadb)
#' get_categories()
get_categories <- function(){
  cats <- httr::GET("https://opentdb.com/api_category.php")
  cats <- httr::content(cats, 'parsed')
  cats <- cats$trivia_categories
  cats <- lapply(cats, as.data.frame)
  cats <- dplyr::bind_rows(cats)
  names(cats)[names(cats) == "name"] <- "categories"

  return(cats)
}

dat <- get_categories()