in 'changeColors()', resample colors using 'colorRampPalette()'

r-spatial · Nov 24, 2024 · 8861561 · 8861561
1 parent cfd2266
commit 8861561
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/changeColors.R b/R/changeColors.R
@@ -71,8 +71,7 @@ changeColors <- function(map, className, colors) {
   )
 
   if (length(colors) > 201) {
-    inds <- round(seq(0, length(colors), length.out = 201))
-    colors <- colors[inds]
+    colors <- grDevices::colorRampPalette(colors)(201)
   }
 
   cols <- paste0(col2hex(colors), collapse = ", ")