validateCssUnit(width) for selectize and slider

R/bootstrap.R

@@ -766,7 +766,7 @@ selectizeIt <- function(inputId, select, options, width = NULL, nonempty = FALSE
         type = 'application/json',
         `data-for` = inputId, `data-nonempty` = if (nonempty) '',
         `data-eval` = if (length(res$eval)) HTML(toJSON(res$eval)),
-        `data-width` = width,
+        `data-width` = validateCssUnit(width),
         if (length(res$options)) HTML(toJSON(res$options)) else '{}'
       )
     ),

R/slider.R

@@ -113,7 +113,7 @@ slider <- function(inputId, min, max, value, step = NULL, ...,
         'data-skin'='plastic', 'data-round'=round, 'data-locale'=locale,
         'data-format'=format, 'data-scale'=ticks,
         'data-smooth'=FALSE,
-        'data-width'=width
+        'data-width'=validateCssUnit(width)
       ),
       dep
     )