color helper

JohnCoene · Nov 14, 2018 · df1ab61 · df1ab61
1 parent 1799c9d
commit df1ab61
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -18,7 +18,7 @@ Imports:
   broom,
   shiny,
   scales
-RoxygenNote: 6.1.0
+RoxygenNote: 6.1.1
 Suggests: 
   echarts4r.assets,
   echarts4r.maps,

diff --git a/R/helpers.R b/R/helpers.R
@@ -84,7 +84,12 @@ e_color_range_ <- function(data, input, output, colors = c("#bf444c", "#d88273",
 
   serie <- data[[input]]
 
-  data[[output]] <- colorRampPalette(colors, ...)(length(serie))
+  if(inherits(serie, "factor") || inherits(serie, "character"))
+    col <- scales::col_numeric(colors, domain = range(serie))(serie)
+  else
+    col <- scales::col_numeric(colors, domain = range(serie))(serie)
+
+  data[[output]] <- col
   data
 }