Separate option tags with newline

This commit is contained in:
Joe Cheng
2014-05-02 17:26:27 -07:00
parent 7e7afc6d38
commit 7920d66cd0

View File

@@ -713,7 +713,7 @@ selectInput <- function(inputId, label, choices, selected = NULL,
">",
htmlEscape(names(choices)),
"</option>",
sep = "", collapse = ""));
sep = "", collapse = "\n"));
# create select tag and add options
selectTag <- tags$select(id = inputId, options)