R/service_info.R

Defines functions service_info

Documented in service_info

#' Return Mapserver Info
#'
#' @param mapserver_url character
#' @param verbose logical passed to \code{crul::HttpClient$new()}
#'
#' @return list
#' @export
#'
service_info <- function(mapserver_url,
                         verbose = FALSE) {

  ## todo: make_request should return null and print errors
  ## should I add ... so users can specify options used by crul? eg verbose
  data <- make_request(mapserver_url,
               args = list(f="pjson"),
               verbose = verbose)
  data$url <- mapserver_url

  data


  ### notes: should consider s3 summary
}
mps9506/aarapir documentation built on May 12, 2020, 1:07 a.m.