#' 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.