fixing #246

sdcTools · Jan 22, 2018 · ffa4ec2 · ffa4ec2
1 parent b32b670
commit ffa4ec2
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/inst/shiny/sdcApp/controllers/ui_categorical.R b/inst/shiny/sdcApp/controllers/ui_categorical.R
@@ -271,11 +271,11 @@ kAnon_impvec <- reactive({
   if (length(cn)==0) {
     return(c(""))
   }
-  
-  # we need to sort the inputs properly 
+
+  # we need to sort the inputs properly
   # in case >= 10 key vars have been specified
   ii <- as.numeric(sapply(strsplit(cn, "_"), tail, 1))
-  cn <- cn[order(ii)]    
+  cn <- cn[order(ii)]
   vals <- unlist(lapply(cn, function(x) {
     input[[x]]
   }))
@@ -291,17 +291,17 @@ kAnon_comb_params <- reactive({
   if (length(cn1)==0) {
     return(NULL)
   }
-  
-  # we need to sort the inputs properly 
+
+  # we need to sort the inputs properly
   # in case >= 10 key vars have been specified
   ii <- as.numeric(sapply(strsplit(cn1, "_"), tail, 1))
-  cn1 <- cn1[order(ii)]  
+  cn1 <- cn1[order(ii)]
   vals1 <- unlist(lapply(cn1, function(x) {
     input[[x]]
   }))
 
   cn2 <- cn[grep("sl_kanon_combs_", cn)]
-  cn2 <- cn2[order(ii)]  
+  cn2 <- cn2[order(ii)]
   vals2 <- unlist(lapply(cn2, function(x) {
     input[[x]]
   }))
@@ -436,7 +436,7 @@ output$ui_kAnon <- renderUI({
     btn <- NULL
     impvec <- kAnon_impvec()
     pp <- kAnon_comb_params()
-    if (!is.null(pp) && length(pp$use)==0) {
+    if (input$rb_kanon_useCombs=="Yes" & (!is.null(pp) && length(pp$use)==0)) {
       return(NULL)
     }
     if (kAnon_useImportance() && any(impvec=="")) {