Merge pull request rstudio#938 from yihui/bugfix/933

Fixes rstudio#933: make sure type is of length one

Author: yihui

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: shiny
 Type: Package
 Title: Web Application Framework for R
-Version: 0.12.2.9000
+Version: 0.12.2.9001
 Date: 2015-08-04
 Authors@R: c(
     person("Winston", "Chang", role = c("aut", "cre"), email = "[email protected]"),

NEWS

@@ -3,6 +3,8 @@ shiny 0.12.2.9000
 
 * Fixed #902: the `drag_drop` plugin of the selectize input did not work.
 
+* Fixed #933: `updateSliderInput()` does not work when only the label is updated.
+
 shiny 0.12.2
 --------------------------------------------------------------------------------
 

R/update-input.R

@@ -285,7 +285,7 @@ updateSliderInput <- function(session, inputId, label = NULL, value = NULL,
     stop("Type mismatch for value, min, and max")
   }
 
-  if (type == "date" || type == "datetime") {
+  if ((length(type) == 1) && (type == "date" || type == "datetime")) {
     to_ms <- function(x) 1000 * as.numeric(as.POSIXct(x))
     if (!is.null(min))   min   <- to_ms(min)
     if (!is.null(max))   max   <- to_ms(max)