R/evds_forward.R

In Rapi: Interface for Multiple Data Providers 'EDDS' and 'FRED'

# ....................................................... create_evds_url
create_evds_url <- function(type = c(
                              "subject",
                              "datagroups",
                              "info_api"
                            ),
                            subject_num = 5,
                            table_name = "bie_altingr",
                            key = null) {
  domain <- "https://evds2.tcmb.gov.tr/service/evds"
  type <- match.arg(type)
  api_key_evds <- key
  if (is.null(key)) {
    api_key_evds <- get_api_key("evds")
  }
  g <- glue::glue

  # liste <- list(
  #   subject = g("{domain}/categories/key={api_key_evds}&type=json"),
  #   datagroups = g("{domain}/datagroups/key={api_key_evds}&mode=2&code={subject_num}&type=json"),
  #   info_api = g("{domain}/serieList/key={api_key_evds}&type=json&code={table_name}")
  # )

  liste <- list(
    subject = g("{domain}/categories/type=json"),
    datagroups = g("{domain}/datagroups/mode=2&code={subject_num}&type=json"),
    info_api = g("{domain}/serieList/type=json&code={table_name}")
  )

  liste[[type]]
}

get_evds_table_names_with_subject_num <- function(subject_num = 5,
                                                  cache = F) {
  url <- create_evds_url("datagroups", subject_num)
  response <- request_httr2_helper_evds(url, cache)
  if (!is_response(response)) {
    return(false)
  }
  contentList <- response %>% httr2::resp_body_json()

  result <- convert_list_df_evds2(contentList)

  result
}
# ....................................................... get_evds_table_info_api
get_evds_subject_list_api <- function(cache = T) {
  url <- create_evds_url("subject")
  response <- request_httr2_helper_evds(url, cache)
  if (!is_response(response)) {
    return(false)
  }
  response %>%
    httr2::resp_body_json() %>%
    convert_list_df_evds2()
}