R/pxweb_add_api_subpath.R

In rOpenGov/pxweb: R Interface to PXWEB APIs

#' Add the subpath slot to a pxweb path slot
#'
#' @details
#' Queries the path from pos 1 and up until a config is returned.
#'
#' @param obj an object to add subpath to
#'
#' @keywords internal
pxweb_add_api_subpath <- function(obj) {
  assert_pxweb_url(obj)

  if (inherits(obj, "pxweb")) {
    return(obj)
  }

  path_splt <- strsplit(obj$url$path, "/")[[1]]

  if (file.exists(obj$paths$rda_file_path)) {
    old_api_subpath <- load_pxweb_api_subpath(obj)
    tmp_vec <- path_splt[1:length(old_api_subpath$vector)]
    tmp_path <- paste(tmp_vec, collapse = "/")
    obj$paths$api_subpath <- list(path = tmp_path, vector = tmp_vec)
    return(obj)
  }

  tmp_url <- obj$url

  # Split up url to api parts
  for (p in 1:length(path_splt)) {
    obj <- pxweb_add_call(obj)
    tmp_url$path <- paste(path_splt[1:p], collapse = "/")
    tmp_cfg_url <- build_pxweb_config_url(tmp_url)
    tmp_r <- httr::GET(tmp_cfg_url)
    pxweb_http_log_response(tmp_r)
    if (is_pxweb_config_response(tmp_r)) break()
  }

  # Add the subpath
  obj$paths$api_subpath <- list(path = tmp_url$path, vector = path_splt[1:p])

  obj
}