R/gen_api.R

In restatis: Web API Client for the German Federal Statistical Office Database

#' Lower-Level Function to Interact With the GENESIS API
#'
#' @param endpoint Self-explanatory
#'
#' @importFrom httr2 `%>%`
#'
#' @noRd
#'
#' @examples
#' gen_api("helloworld/logincheck") %>%
#'   httr2::resp_body_json()
gen_api <- function(endpoint, ...) {
  httr2::request("https://www-genesis.destatis.de/genesisWS/rest/2020") %>%
    httr2::req_user_agent("https://github.com/CorrelAid/restatis") %>%
    httr2::req_url_path_append(endpoint) %>%
    httr2::req_url_query(!!!gen_auth_get(), ...) %>%
    httr2::req_retry(max_tries = 3) %>%
    httr2::req_perform()
}