Minor refactor of inputs

OHDSI · Dec 19, 2023 · f37e819 · f37e819
1 parent c35ac3b
commit f37e819
Showing 1 changed file with 5 additions and 7 deletions.
diff --git a/R/sccs-main.R b/R/sccs-main.R
@@ -120,7 +120,10 @@ sccsServer <- function(
       paste(res$exposureName, "\n\t-", res$indicationName)
     }
 
-  exposureSelectionInput <- createInputSetting(
+  shiny::moduleServer(id, function(input, output, session) {
+
+   inputSettings <- list(
+     createInputSetting(
       rowNumber = 1,
       columnWidth = 12,
       varName = 'exposure',
@@ -136,12 +139,7 @@ sccsServer <- function(
         keepAlwaysOpen = FALSE
       ),
       namesCallback = namesCallback
-    )
-
-  shiny::moduleServer(id, function(input, output, session) {
-
-   inputSettings <- list(
-     exposureSelectionInput,
+    ),
      createInputSetting(
        rowNumber = 2,
        columnWidth = 6,