BUGFIX: crash when .compare and .updateInputs where used together

Author: FrancoisGuillem

R/controlsUtils.R

@@ -223,7 +223,7 @@ resetInitValues <- function(controls, values, newParams = NULL) {
 # - ind: list of individual controls for the first chart to compare
 # - ind2: list of individual controls for the seconde chart to compare
 comparisonControls <- function(controls, compare, updateInputs = NULL, env) {
-  if (length(controls) == 0) return(list())
+  if (length(controls) == 0) return(list(common = list(), ind1 = list(), ind2 = list()))
   common <- filterControls(controls, names(compare), drop = TRUE)
   ind <- filterControls(controls, names(compare))
   ind2 <- ind

R/mwServer.R

@@ -146,7 +146,9 @@ updateInputs <- function(session, input, controlDesc, .display, .compare, .updat
   newParams <- eval(.updateInputs, envir = env)
 
   for (n in names(newParams)) {
-    inputId <- paste0(n, suffix)
+    # TODO: in comparison mode, common inputs are updated twice.
+    if (n %in% names(.compare)) inputId <- paste0(n, suffix)
+    else inputId <- n
     desc <- controlDesc[controlDesc$name == inputId,]
     updateInputFun <- switch(
       desc$type,