R/test-helpers.R

In rnpn: Interface to the National 'Phenology' Network 'API'

#' Runs a basic check to see if a valid response is returned by the NPN Portal
#' service and returns TRUE/FALSE. Used in unit tests to determine if tests
#' should be run
#' @returns `TRUE` if service is up, `FALSE` if service is down
#' @noRd
check_service <- function() {
  req <- base_req %>%
    httr2::req_url_path_append('species/getSpeciesById.json') %>%
    httr2::req_url_query(species_id = 3) %>%
    httr2::req_method("HEAD")
  resp <- httr2::req_perform(req)
  !httr2::resp_is_error(resp)
}

#' Runs a basic check to see if a valid response is returned by Geoserver and
#' returns TRUE/FALSE. Used in unit tests to determine if tests should be run
#'
#' @returns `TRUE` if service is up, `FALSE` if service is down
#' @noRd
check_geo_service <- function() {
  req <- httr2::request(base_geoserver_url) %>%
    httr2::req_user_agent("rnpn (https://github.com/usa-npn/rnpn/)") %>%
    httr2::req_url_path_append("ows") %>%
    httr2::req_url_query(
      service = "wms",
      version = "1.3.0",
      request = "GetCapabilities"
    ) %>% httr2::req_method("HEAD")
  resp <- httr2::req_perform(req)
  !httr2::resp_is_error(resp)
}

# #TODO this no longer works.  This endpoint doesn't exist
# check_data_service <- function() {
#   url <- paste0('https://services.usanpn.org/', 'web-services/geo.html')
#   res <- NULL
#   tryCatch({
#     res <- httr::GET(url)
#   }, error = function(msg) {
#     return(FALSE)
#   })
#
#   if (is.null(res) || res$status_code != 200) {
#     return(FALSE)
#   }
#
#   return(TRUE)
# }



#TODO do this a different way with an env var
get_skip_long_tests <- function() {
  return(TRUE)
}