R/utils.R

In rdinter/nassR: USDA NASS Quickstats API

# Argument List as defaulted null ....


# CHECK IF THERE IS AN API TOKEN AVAILABLE
check_key <- function(x){
  tmp <- if (is.null(x)) Sys.getenv("NASS_KEY", "") else x
  if (tmp == "") getOption("nasskey",
                          stop("need an API key for NASS data")) else tmp
}


# CHECK GET RESPONSE FROM PAGE. DECIDE IF COUNT (NUMBER IF COUNT) OR DATA
check_response <- function(x){
  if (x$status_code == 400) {
    warning(paste0("Bad request - invalid query: error ", x$status_code,
                   ". There is an error in the query string, such as wrong ",
                   "parameter name or value."))
  } else if (x$status_code == 413) {
    warning(paste0("Exceeds limit = 50,000: error ", x$status_code,
                   ". The request would return more than 50,000 records."))
  } else if (x$status_code == 415) {
    warning(paste0("Bad request - unsupport media type: error ", x$status_code,
                   ". The request format parameter is not JSON or CSV or XML."))
  } else if (x$status_code == 401) {
    warning(paste0("Unauthorized: error ", x$status_code,
                   ". There is no key or invalid key parameter."))
  } else if (x$status_code == 200) {
# NO ERRORS
    if (x$headers$`content-type` == "application/json") {
# JSON COUNT
      if (names(httr::content(x)) != "data") {
        res <- httr::content(x, as = "text", encoding = "UTF-8")
        out <- jsonlite::fromJSON(res, simplifyVector = FALSE)
      } else if (names(httr::content(x)) == "data") {
# JSON DATA
        out <- names(httr::content(x))
      } else {
        warning("Unknown JSON error.")
      }
    } else if (x$headers$`content-type` == "text/xml") {
# XML DATA
      out <- names(httr::content(x))
    } else if (x$headers$`content-type` == "text/csv") {
# CSV DATA
      out <- names(httr::content(x))
    } else {
      warning("Unknown CSV or XML data error.")
    }
    return(out)
  }
}