R/servers.R

In rerddap: General Purpose Client for 'ERDDAP' Servers

#' ERDDAP server URLS and other info
#'
#' @export
#' @param ... curl options passed on to [crul::verb-GET]
#' @return data.frame with 3 columns:
#' 
#' - name (character): ERDDAP name
#' - url (character): ERDDAP url
#' - public (logical): whether it's public or not
#' 
#' @examples \dontrun{
#' servers()
#' }
servers <- function(...) {
  surl <- "https://irishmarineinstitute.github.io/awesome-erddap/erddaps.json"
  tt <- crul::HttpClient$new(url = surl, opts = list(...))$get()
  tt$raise_for_status()
  tibble::as_tibble(jsonlite::fromJSON(tt$parse("UTF-8")))
}