github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-02-08 13:45:28 -05:00
Code Issues Packages Projects Releases Wiki Activity

removed TODO comments

Browse Source
This commit is contained in:
Timothy Mastny
2018-06-25 13:51:24 -05:00
parent 19dc29ea17
commit db48befcb7
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/update-input.R
View File

@@ -647,7 +647,7 @@ updateSelectizeInput <- function(session, inputId, label = NULL, choices = NULL,
if (is.list(choices)) {
# check if list is nested
for (i in seq_along(choices)) {
if (is.list(choices[[i]]) || length(choices[[i]]) > 1) { # TODO: add ' || length(choices) > 1'
if (is.list(choices[[i]]) || length(choices[[i]]) > 1) {
noOptGroup <- FALSE
break()
}
@@ -682,7 +682,7 @@ updateSelectizeInput <- function(session, inputId, label = NULL, choices = NULL,
lab <- name
if (lab == "") lab <- as.character(choice)
if (is.list(choice) || length(choice) > 1) { #TODO: add ' || length(choice) > 1'
if (is.list(choice) || length(choice) > 1) {
group <- rep(name, length(choice))
choice <- unlist(choice)