R/dst_get_tables.R

In rOpenGov/dkstat: API connection to the StatBank from Statistics Denmark

#' This functions downloads all the available tables.
#'
#' @param lang "da" (danish) or "en" (english)
#' @export
dst_get_tables <- function(lang = "da") {
  # Test that the language is either da or english
  if (!stringr::str_detect(lang, "da|en")) {
    stop("The lang parameter can only be 'da' or 'en'")
  }

  # prepare the url
  dst_url <- paste0(
    "http://api.statbank.dk/v1/tables?lang=",
    lang,
    "&format=JSON"
  )

  # get data
  dst_tables <- httr::GET(url = dst_url)
  dst_tables <- httr::content(dst_tables, encoding = "UTF-8")

  # parse JSON
  dst_tables <- jsonlite::fromJSON(dst_tables)
  dst_tables$variables <- unlist(lapply(
    dst_tables$variables,
    paste,
    sep = ",",
    collapse = ","
  ))

  return(dst_tables)
}