fix bug in 'changeColors()' where using 202+ colors was breaking it

r-spatial · Nov 23, 2024 · 1f9c834 · 1f9c834
1 parent e88c8a7
commit 1f9c834
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/changeColors.R b/R/changeColors.R
@@ -55,6 +55,11 @@ changeColors <- function(map, className, colors){
     changeColorsDependencies()
   )
 
+  if (length(colors) > 201) {
+    inds <- round(seq(0, length(colors), length.out = 201))
+    colors <- colors[inds]
+  }
+
   cols <- paste0(col2hex(colors), collapse = ", ")
   if (inherits(map, "leaflet_proxy")) {
     leaflet::invokeMethod(map,