Merge branch 'layergroupconditional' of https://github.com/trafficone…

…se/leaflet.extras2 into layergroupconditional

# Conflicts:
#	R/layergroupconditional.R

R/layergroupconditional.R

@@ -40,23 +40,27 @@ layerGroupConditionalDependency <- function() {
 #' breweries91 <- st_as_sf(breweries91)
 #' lines <- st_as_sf(atlStorms2005)
 #' polys <- st_as_sf(leaflet::gadmCHE)
-#' groups <- c("atlStorms","breweries","gadmCHE")
+#' groups <- c("atlStorms", "breweries", "gadmCHE")
 #'
 #' leaflet()  %>%
 #' addTiles() %>%
 #'   #leafem::addMouseCoordinates() %>%
 #'   addPolylines(data = lines, label = ~Name, group = groups[1]) %>%
 #'   addCircleMarkers(data = breweries91, label = ~brewery, group = groups[2]) %>%
 #'   addPolygons(data = polys, label = ~NAME_1, group = groups[3]) %>%
-#'   addLayerGroupConditional(groups = groups,
-#'                            conditions = list(
-#'                              "(zoomLevel) => zoomLevel < 4" = groups[1],
-#'                              "(zoomLevel) => zoomLevel >= 4 & zoomLevel < 6 " = groups[2],
-#'                              "(zoomLevel) => zoomLevel >= 6" = groups[3]
-#'                            )) %>%
+#'   addLayerGroupConditional(
+#'     groups = groups,
+#'     conditions = list(
+#'       "(zoomLevel) => zoomLevel < 4" = groups[1],
+#'       "(zoomLevel) => zoomLevel >= 4 & zoomLevel < 6 " = groups[2],
+#'       "(zoomLevel) => zoomLevel >= 6" = groups[3]
+#'     )
+#'   ) %>%
 #'   hideGroup(groups) %>%
-#'   addLayersControl(overlayGroups = groups,
-#'                    options = layersControlOptions(collapsed=FALSE))
+#'   addLayersControl(
+#'     overlayGroups = groups,
+#'     options = layersControlOptions(collapsed = FALSE)
+#'   )
 #'
 addLayerGroupConditional <- function(map, groups = NULL, conditions = NULL) {
   map$dependencies <- c(map$dependencies, layerGroupConditionalDependency())