From df1ab613796375bb7b1999918703cb3974e60308 Mon Sep 17 00:00:00 2001
From: JohnCoene <jcoenep@gmail.com>
Date: Thu, 15 Nov 2018 00:22:33 +0100
Subject: [PATCH] color helper

---
 DESCRIPTION | 2 +-
 R/helpers.R | 7 ++++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 4c9b6651..d672f083 100644
--- 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
index cef715ed..14b4d7fd 100644
--- 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
 }