coerce to numeric when appropriate

plotly · Nov 1, 2019 · ba7c015 · ba7c015
1 parent b09c9e5
commit ba7c015
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/dash.R b/R/dash.R
@@ -649,6 +649,8 @@ Dash <- R6::R6Class(
       getServerParam <- function(value, type, default) {
         if (!is.null(value) && toupper(value) %in% c("TRUE", "FALSE"))
           value <- as.logical(toupper(value))
+        if (type == "numeric")
+          value <- as.numeric(value)
         if (value != "" && length(value) != 0 && mode(value) == type && !is.na(value)) {
           return(value)
         } else {