closes rstudio#119: we do not have to do this special treatment to the label for sliderInput, and no other inputs do as.character() for their labels

if users pass an HTML() object to the label argument, the HTML will be preserved instead of being escaped

Author: yihui

NEWS

@@ -122,6 +122,10 @@ shiny 0.8.0.99
   scientific notation when possible, e.g. 102145 is no longer rounded to
   1.0214e+05 = 102140. (Thanks, Martin Loos. #401)
 
+* `sliderInput()` no longer treats a label wrapped in HTML() as plain text,
+  e.g. the label in sliderInput(..., label = HTML('<em>A Label</em>')) will
+  not be escaped any more. (#119)
+
 shiny 0.8.0
 --------------------------------------------------------------------------------
 

R/bootstrap.R

@@ -940,11 +940,6 @@ sliderInput <- function(inputId, label, min, max, value, step = NULL,
                         round=FALSE, format='#,##0.#####', locale='us',
                         ticks=TRUE, animate=FALSE) {
 
-  # validate label
-  labelText <- as.character(label)
-  if (!is.character(labelText))
-    stop("label not specified")
-
   if (identical(animate, TRUE))
     animate <- animationOptions()
 
@@ -958,7 +953,7 @@ sliderInput <- function(inputId, label, min, max, value, step = NULL,
   # build slider
   tags$div(
     tagList(
-      controlLabel(inputId, labelText),
+      controlLabel(inputId, label),
       slider(inputId, min=min, max=max, value=value, step=step, round=round,
              locale=locale, format=format, ticks=ticks,
              animate=animate)