selectInput: use form-control for multiple and single

wch · wch · commit 9f8f04caec16 · 2015-02-05T14:51:40.000-06:00
diff --git a/R/bootstrap.R b/R/bootstrap.R
@@ -785,7 +785,7 @@ selectInput <- function(inputId, label, choices, selected = NULL,
   # create select tag and add options
   selectTag <- tags$select(
     id = inputId,
-    class = if (multiple && !selectize) "form-control",
+    class = if (!selectize) "form-control",
     selectOptions(choices, selected)
   )
   if (multiple)

Original file line number	Diff line number	Diff line change
`@@ -785,7 +785,7 @@ selectInput <- function(inputId, label, choices, selected = NULL,`
`785`	`785`	`# create select tag and add options`
`786`	`786`	`selectTag <- tags$select(`
`787`	`787`	`id = inputId,`
`788`		`- class = if (multiple && !selectize) "form-control",`
	`788`	`+ class = if (!selectize) "form-control",`
`789`	`789`	`selectOptions(choices, selected)`
`790`	`790`	`)`
`791`	`791`	`if (multiple)`