R/get_params.R

In neotoma2: Working with the Neotoma Paleoecology Database

#' @title get_params
#' @author Socorro Dominguez \email{dominguezvid@wisc.edu}
#' @importFrom httr GET content
#' @importFrom stringr str_match str_match_all
#' @keywords internal
get_params <- function(obj) {
  url <- "https://api.neotomadb.org/api-docs/swagger-ui-init.js"
  r <- tryCatch({
    resp <- GET(url)
    result <- content(resp, "text", encoding = "UTF-8")
    sw <- str_match(result,
                    paste0("v2.0/data/", obj,
                           "\"\\s*:\\s*(\\{[\\s\\S]+?\\})\\s*\\n"))[, 2]
    matches <- str_match_all(
      sw, "#/components/parameters/([a-zA-Z0-9_]+)Query\\\""
    )[[1]][, 2]
    matches <- unique(matches)
    matches
  }, error = function(e) {
    warning("Swagger with available parameters not available in API: ",
            conditionMessage(e))
    NULL
  })
  r <- append(r, list("all_data", "limit", "offset"))
  r <- lapply(r, tolower)
  return(r)
}