Merge pull request #146 from jwolfson/master

Improve handling of gradients argument in addHeatmap
trafficonese · Apr 2, 2024 · a3f7a9c · a3f7a9c
2 parents ebb7bcb + c6da2ab
commit a3f7a9c
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/heatmap.R b/R/heatmap.R
@@ -62,8 +62,10 @@ addHeatmap <- function(
   )
 
   # convert gradient to expected format from leaflet
-  if (!is.null(gradient) && !is.function(gradient)) {
-    gradient <- colorNumeric(gradient, 0:1)
+  if (!is.null(gradient)) {
+    if (!is.function(gradient)) {
+      gradient <- colorNumeric(gradient, 0:1, alpha = TRUE)
+    }
     gradient <- as.list(gradient(0:20 / 20))
     names(gradient) <- as.character(0:20 / 20)
   }