Don't use scientific notation for sending slider values

Author: wch

R/input-slider.R

@@ -132,11 +132,11 @@ sliderInput <- function(inputId, label, min, max, value, step = NULL,
     class = "js-range-slider",
     id = inputId,
     `data-type` = if (length(value) > 1) "double",
-    `data-min` = min,
-    `data-max` = max,
-    `data-from` = value[1],
-    `data-to` = if (length(value) > 1) value[2],
-    `data-step` = step,
+    `data-min` = formatNoSci(min),
+    `data-max` = formatNoSci(max),
+    `data-from` = formatNoSci(value[1]),
+    `data-to` = if (length(value) > 1) formatNoSci(value[2]),
+    `data-step` = formatNoSci(step),
     `data-grid` = ticks,
     `data-grid-num` = n_ticks,
     `data-grid-snap` = FALSE,