R/categories_19115.R

In krystiankorzec/apiwawa: What the Package Does (One Line, Title Case)

#' Get categories of 19115 requests
#'
#' @param token individual API token.
#' @return tibble of 19115 request categories
#' @examples
#' get_19115_cats()
#' @export
get_19115_cats <- function(token=Sys.getenv("WAWA_API_TOKEN")){
  if(identical(token, "")){
    stop("Please provide valid API token")
  }
  url <- "http://api.um.warszawa.pl/api/action/19115v2_categories"
  req <- httr2::request(url) %>%
    httr2::req_url_query(apikey = token) %>%
    httr2::req_user_agent("apiwawa (https://github.com/krystiankorzec/apiwawa)")
  resp <- req %>%
    httr2::req_perform() %>%
    httr2::resp_body_string() %>%
    jsonlite::fromJSON() %>%
    purrr::map("result")
  resp_df <- tibble::as_tibble(resp$result)
  resp_df
}