remove all special characters for homebutton

Author: tim-salabim

R/files.R

@@ -98,7 +98,7 @@ leaflet_tiles = function(x,
     m = leafem::addHomeButton(
       m,
       ext = raster::extent(ll_mn$lon, ll_mx$lon, ll_mn$lat, ll_mx$lat),
-      group = layer.name
+      group = gsub("[[:punct:] ]", "_", layer.name)
     )
   }
   #
@@ -175,7 +175,7 @@ leaflet_file = function(x,
   funs <- funs[!sapply(funs, is.null)]
 
   args <- list(if (scalebar) list(position = "bottomleft"),
-               if (homebutton) list(group = layer.name),
+               if (homebutton) list(group = gsub("[[:punct:] ]", "_", layer.name)),
                if (is.null(map)) list(map.types = map.types,
                                       names = layer.name,
                                       native.crs = native.crs),

R/raster.R

@@ -157,7 +157,7 @@ leafletRL = function(x,
     if (scalebar) m = leaflet::addScaleBar(m, position = "bottomleft")
     m = leafem::addMouseCoordinates(m)
     m = leafem::addCopyExtent(m)
-    if (homebutton) m = leafem::addHomeButton(m, ext, group = layer.name)
+    if (homebutton) m = leafem::addHomeButton(m, ext, group = gsub("[[:punct:] ]", "_", layer.name))
 
     if (hide) {
       m = leaflet::hideGroup(m, layer.name)

R/sf.R

@@ -347,7 +347,7 @@ leafgl_sf = function(x,
     if (scalebar) list(position = "bottomleft")
     , if (homebutton) list(
       ext = createExtent(x)
-      , group = layer.name
+      , group = gsub("[[:punct:] ]", "_", layer.name)
       , position = mapviewGetOption("homebutton.pos")
     )
     , if (is.null(map)) list(
@@ -672,7 +672,7 @@ leaflet_sfc <- function(x,
     if (scalebar) list(position = "bottomleft")
     , if (homebutton) list(
       ext = createExtent(x)
-      , group = layer.name
+      , group = gsub("[[:punct:] ]", "_", layer.name)
       , position = mapviewGetOption("homebutton.pos")
     )
     , if (is.null(map)) list(

R/stars.R

@@ -303,7 +303,7 @@ leaflet_stars = function(x,
   m = leaflet::addScaleBar(map = m, position = "bottomleft")
   m = leafem::addMouseCoordinates(m)
   m = leafem::addCopyExtent(m)
-  if (homebutton) m = leafem::addHomeButton(m, ext, group = layer.name)
+  if (homebutton) m = leafem::addHomeButton(m, ext, group = gsub("[[:punct:] ]", "_", layer.name))
 
   if (hide) {
     m = leaflet::hideGroup(m, layer.name)