R/version.R

In rerddap: General Purpose Client for 'ERDDAP™' Servers

#' Get ERDDAP™ version
#'
#' @export
#' @param url A URL for an ERDDAP™ server. Default:
#' https://upwell.pfeg.noaa.gov/erddap/ - See [eurl()] for 
#' more information
#' @param ... Curl options passed on to [crul::verb-GET]
#' @examples \dontrun{
#' version()
#' ss <- servers()
#' version(ss$url[2])
#' version(ss$url[3])
#' }
version <- function(url = eurl(), ...){
  cli <- crul::HttpClient$new(url = file.path(pu(url), 'version'), 
    opts = list(...))
  # res <- cli$get()
  response <- tryCatch(
    {
      res <- cli$get()  # Attempt to fetch
    },
    error = function(e) {
      message("Curl request failed to get version: ", e$message)
      quit(save = "no", status = 1)  # Gracefully exit R session
    }
  )
  res$raise_for_status()
  sub("\n", "", res$parse("UTF-8"))
}