leaflet-mapbox-gl.R

# BE SURE TO set your Mapbox access token with:
# options(mapbox.accessToken = "...")

library(htmltools)
library(leaflet)

mapboxgl_deps <- list(
  htmlDependency(
    "mapbox-gl-js", "0.53.0", c(href = "https://api.mapbox.com/mapbox-gl-js/v0.53.0/"),
    script = "mapbox-gl.js",
    stylesheet = "mapbox-gl.css"
  ),
  htmlDependency(
    "mapbox-gl-leaflet", "0.0.3", c(href = "https://unpkg.com/[email protected]/"),
    script = "leaflet-mapbox-gl.js"
  )
)

#' @export
mapboxOptions <- function(accessToken = getOption("mapbox.accessToken"),
  style = NULL, ...) {
  
  opts <- list(
    accessToken = accessToken,
    style = style
  )
  
  # Filter out NULL
  opts[!vapply(opts, is.null, logical(1))]
}

#' @export
addMapboxGL <- function(map, options) {
  if (is.null(options[["accessToken"]])) {
    accessToken <- getOption("mapbox.accessToken")
    if (is.null(accessToken)) {
      stop("Please supply addMapboxGL() with a Mapbox access token, either via `options(mapbox.accessToken = \"...\")` or directly on the options argument.")
    }
    options$accessToken <- accessToken
  }
  map$dependencies <- c(
    map$dependencies,
    mapboxgl_deps
  )
  
  map <- htmlwidgets::onRender(map, "function(el, x, options) {
    debugger;
    L.mapboxGL(options).addTo(this);
  }", options)
  
  map
}

# Example
leaflet(quakes) %>%
  addMapboxGL(options = mapboxOptions(
    style = "mapbox://styles/mapbox/light-v9"
  )) %>%
  addMarkers()

how would I add layer control to these objects? I'm unable to assign these to groups.