R/addBaseMap.R

Defines functions addBaseMap

Documented in addBaseMap

addBaseMap <- function(name, title, url, options) {
  # get existing base maps
  baseMaps <-  getOption("leafletBaseMaps")
  
  # create base map
  if(missing(title)) title <- name
  newBaseMap <- list(title=title, url=url)
  if(missing(options)) options <- NULL
  newBaseMap$options <- options
  
  # add base map
  baseMaps[[name]] <- newBaseMap
  options(leafletBaseMaps=baseMaps)
}
chgrl/leafletR documentation built on March 24, 2022, 7:53 a.m.