reverting changethe input catvarquantin as it was bugging

smouksassi · Jun 8, 2023 · 5ea5d37 · 5ea5d37
1 parent a587733
commit 5ea5d37
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/inst/shinyapp/server.R b/inst/shinyapp/server.R
@@ -763,14 +763,14 @@ function(input, output, session) {
     if (!is.null(input$catvarin) && length(input$catvarin ) >=1) {
         NAMESTOKEEP2 <- NAMESTOKEEP2 [ !is.element(NAMESTOKEEP2,input$catvarin) ]
     }
-    if (!is.null(input$catvarquantin) && input$catvarquantin %in% NAMESTOKEEP2) {
-      selected <- input$catvarquantin
-    } else {
-      selected <- NULL
-    }
+    # if (!is.null(input$catvarquantin) && input$catvarquantin %in% NAMESTOKEEP2) {
+    #   selected <- input$catvarquantin
+    # } else {
+    #   selected <- NULL
+    # }
     selectInput('catvarquantin',
                 label = 'Recode into Quantile Categories:',
-                choices = NAMESTOKEEP2, multiple=TRUE, selected = selected)
+                choices = NAMESTOKEEP2, multiple=TRUE)
   })
 
   # Show/hide the "N of cut quantiles" input