From db48befcb77f65b77840e4c939dad74b49afe6ce Mon Sep 17 00:00:00 2001 From: Timothy Mastny Date: Mon, 25 Jun 2018 13:51:24 -0500 Subject: [PATCH] removed TODO comments --- R/update-input.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/update-input.R b/R/update-input.R index a5315da51..bf60331ae 100644 --- a/R/update-input.R +++ b/R/update-input.R @@ -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)