diff --git a/exploratory/app.R b/exploratory/app.R
index b2957f1b..2f370696 100644
--- a/exploratory/app.R
+++ b/exploratory/app.R
@@ -41,187 +41,6 @@ data <- within(data, {
 
 join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADLB", "ADLBPCA")]
 
-## Reusable Configuration For Modules
-ADSL <- data[["ADSL"]]
-ADRS <- data[["ADRS"]]
-ADLB <- data[["ADLB"]]
-ADLBPCA <- data[["ADLBPCA"]]
-
-adsl_extracted_num <- data_extract_spec(
-  dataname = "ADSL",
-  select = select_spec(
-    choices = variable_choices(ADSL),
-    selected = "AGE",
-    multiple = FALSE,
-    fixed = FALSE
-  )
-)
-adsl_extracted_num2 <- data_extract_spec(
-  dataname = "ADSL",
-  select = select_spec(
-    choices = variable_choices(ADSL),
-    selected = "BMRKR1",
-    multiple = FALSE,
-    fixed = FALSE
-  )
-)
-adsl_extracted_fct <- data_extract_spec(
-  dataname = "ADSL",
-  select = select_spec(
-    choices = variable_choices(ADSL),
-    selected = "ARMCD",
-    multiple = FALSE,
-    fixed = FALSE
-  )
-)
-fact_vars_adsl <- names(Filter(isTRUE, sapply(ADSL, is.factor)))
-adsl_extracted_fct2 <- data_extract_spec(
-  dataname = "ADSL",
-  select = select_spec(
-    choices = variable_choices(ADSL, subset = fact_vars_adsl),
-    selected = "STRATA2",
-    multiple = FALSE,
-    fixed = FALSE
-  )
-)
-adsl_extracted_fct3 <- data_extract_spec(
-  dataname = "ADSL",
-  select = select_spec(
-    choices = variable_choices(ADSL),
-    selected = "ARMCD",
-    multiple = TRUE,
-    fixed = FALSE
-  )
-)
-numeric_vars_adsl <- names(Filter(isTRUE, sapply(ADSL, is.numeric)))
-adsl_extracted_numeric <- data_extract_spec(
-  dataname = "ADSL",
-  select = select_spec(
-    choices = variable_choices(ADSL, subset = numeric_vars_adsl),
-    selected = "BMRKR1",
-    multiple = FALSE,
-    fixed = FALSE
-  )
-)
-adsl_extracted_factors <- data_extract_spec(
-  dataname = "ADSL",
-  select = select_spec(
-    choices = variable_choices(ADSL, subset = fact_vars_adsl),
-    selected = NULL,
-    multiple = FALSE,
-    fixed = FALSE
-  )
-)
-
-adsl_extracted_multi <- data_extract_spec(
-  dataname = "ADSL",
-  select = select_spec(
-    choices = variable_choices(ADSL),
-    selected = c("AGE", "BMRKR1"),
-    multiple = TRUE,
-    fixed = FALSE
-  )
-)
-
-adrs_filters <- filter_spec(
-  vars = "PARAMCD",
-  sep = " - ",
-  choices = value_choices(ADRS, "PARAMCD", "PARAM", c("BESRSPI", "INVET")),
-  selected = "BESRSPI",
-  multiple = FALSE,
-  label = "Choose endpoint"
-)
-
-adrs_extracted_response <- data_extract_spec(
-  dataname = "ADRS",
-  filter = adrs_filters,
-  select = select_spec(
-    choices = variable_choices(ADRS, c("AVALC", "AVAL")),
-    selected = "AVALC",
-    multiple = FALSE,
-    fixed = FALSE
-  )
-)
-
-fact_vars_adrs <- names(Filter(isTRUE, sapply(ADRS, is.factor)))
-adrs_extracted_response_fct <- data_extract_spec(
-  dataname = "ADRS",
-  filter = adrs_filters,
-  select = select_spec(
-    choices = variable_choices(ADRS, subset = fact_vars_adrs),
-    selected = "AVALC",
-    multiple = FALSE,
-    fixed = FALSE
-  )
-)
-
-adlb_filter_paramcd <- filter_spec(
-  vars = "PARAMCD",
-  choices = value_choices(ADLB, "PARAMCD", "PARAM"),
-  selected = levels(ADLB$PARAMCD)[1],
-  multiple = FALSE,
-  label = "Select lab:"
-)
-adlb_filter_paramcd2 <- filter_spec(
-  vars = "PARAMCD",
-  choices = value_choices(ADLB, "PARAMCD", "PARAM"),
-  selected = levels(ADLB$PARAMCD)[2],
-  multiple = FALSE,
-  label = "Select lab:"
-)
-adlb_filter_visit <- filter_spec(
-  vars = "AVISIT",
-  choices = levels(ADLB$AVISIT),
-  selected = levels(ADLB$AVISIT)[1],
-  multiple = FALSE,
-  label = "Select visit:"
-)
-adlb_extracted_aval <- data_extract_spec(
-  dataname = "ADLB",
-  select = select_spec(
-    choices = variable_choices(ADLB, c("AVAL", "CHG", "PCHG", "ANRIND", "BASE")),
-    selected = "AVAL",
-    multiple = FALSE,
-    fixed = FALSE
-  ),
-  filter = list(
-    adlb_filter_paramcd,
-    adlb_filter_visit
-  )
-)
-
-numeric_vars_adlbpca <- names(Filter(isTRUE, sapply(ADLBPCA, is.numeric)))
-
-distr_filter_spec <- filter_spec(
-  vars = choices_selected(
-    variable_choices(ADSL, fact_vars_adsl),
-    selected = NULL
-  ),
-  multiple = TRUE
-)
-
-## App header and footer ----
-nest_logo <- "https://raw.githubusercontent.com/insightsengineering/hex-stickers/main/PNG/nest.png"
-app_source <- "https://github.com/insightsengineering/teal.gallery/tree/main/exploratory"
-gh_issues_page <- "https://github.com/insightsengineering/teal.gallery/issues"
-
-header <- tags$span(
-  style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
-  tags$span("My first teal app", style = "font-size: 30px;"),
-  tags$span(
-    style = "display: flex; align-items: center;",
-    tags$img(src = nest_logo, alt = "NEST logo", height = "45px", style = "margin-right:10px;"),
-    tags$span(style = "font-size: 24px;", "NEST @ Roche")
-  )
-)
-
-footer <- tags$p(
-  "This teal app is brought to you by the NEST Team at Roche/Genentech.
-        For more information, please visit:",
-  tags$a(href = app_source, target = "_blank", "Source Code"), ", ",
-  tags$a(href = gh_issues_page, target = "_blank", "Report Issues")
-)
-
 app <- init(
   data = data,
   filter = teal_slices(
@@ -252,105 +71,72 @@ app <- init(
     tm_data_table("Data Table"),
     tm_variable_browser("Variable Browser"),
     tm_missing_data("Missing Data"),
-    tm_g_distribution(
-      "Distribution",
-      dist_var = adsl_extracted_numeric,
-      strata_var = data_extract_spec(
-        dataname = "ADSL",
-        filter = distr_filter_spec
-      ),
-      group_var = data_extract_spec(
-        dataname = "ADSL",
-        filter = distr_filter_spec
-      )
-    ),
-    tm_outliers(
-      "Outliers",
-      outlier_var = data_extract_spec(
-        dataname = "ADLB",
-        select = select_spec(
-          choices = variable_choices(ADLB, c("AVAL", "CHG", "PCHG", "BASE")),
-          selected = "AVAL",
-          multiple = FALSE,
-          fixed = FALSE
+    tm_g_distribution("Distribution"),
+    # tm_outliers("Outliers"),
+    tm_g_association(),
+    tm_g_bivariate(
+      transformators = list(
+        teal_transform_filter(
+          picks(
+            datasets("ADLB"),
+            variables(choices = c("PARAMCD", "AVISIT"), selected = c("PARAMCD", "AVISIT"), fixed = TRUE),
+            values(multiple = FALSE)
+          )
         )
       ),
-      categorical_var = data_extract_spec(
-        dataname = "ADLB",
-        select = select_spec(
-          choices = variable_choices(ADLB, c("PARAM", "PARAMCD")),
-          selected = NULL,
-          multiple = FALSE,
-          fixed = FALSE
-        )
-      )
-    ),
-    tm_g_association(
-      ref = adsl_extracted_num,
-      vars = adsl_extracted_fct3
-    ),
-    tm_g_bivariate(
-      x = adsl_extracted_num,
-      y = adlb_extracted_aval,
-      row_facet = adsl_extracted_factors,
-      col_facet = adsl_extracted_factors,
       use_density = FALSE,
       plot_height = c(600L, 200L, 2000L),
       ggtheme = "gray"
     ),
     tm_a_regression(
       label = "Regression",
-      response = adsl_extracted_numeric,
-      regressor = adrs_extracted_response
+      transformators = list(
+        teal_transform_filter(picks(datasets("ADRS"), variables("PARAMCD"), values(selected = "BESRSPI")))
+      )
     ),
     tm_g_response(
-      response = adrs_extracted_response_fct,
-      x = adsl_extracted_fct2,
-      row_facet = adsl_extracted_factors,
-      col_facet = adsl_extracted_factors,
+      transformators = list(
+        teal_transform_filter(picks(datasets("ADRS"), variables("PARAMCD"), values(selected = "BESRSPI")))
+      ),
       coord_flip = FALSE
     ),
-    tm_g_scatterplotmatrix(
-      label = "Scatterplot Matrix",
-      variables = adsl_extracted_multi
-    ),
-    tm_g_scatterplot(
-      "Scatterplot",
-      x = adsl_extracted_num,
-      y = adsl_extracted_num2,
-      row_facet = adsl_extracted_factors,
-      col_facet = adsl_extracted_factors,
-      color_by = adsl_extracted_factors,
-      size = 3, alpha = 1,
-      plot_height = c(600L, 200L, 2000L)
-    ),
-    tm_t_crosstable(
-      "Table Choices",
-      x = adsl_extracted_fct2,
-      y = adsl_extracted_fct
-    ),
-    tm_a_pca(
-      "Principal Component Analysis",
-      dat = data_extract_spec(
-        dataname = "ADLBPCA",
-        select = select_spec(
-          choices = variable_choices(ADLBPCA, numeric_vars_adlbpca),
-          selected = c("ALT - WEEK 5 DAY 36", "CRP - WEEK 5 DAY 36", "IGA - WEEK 5 DAY 36"),
-          multiple = TRUE,
-          fixed = FALSE,
-          label = "Variable"
-        ),
-      ),
-      plot_height = c(600L, 200L, 2000L),
-      plot_width = c(600L, 200L, 2000L)
-    )
+    tm_g_scatterplotmatrix(label = "Scatterplot Matrix"),
+    tm_g_scatterplot("Scatterplot", size = 3, alpha = 1, plot_height = c(600L, 200L, 2000L)),
+    tm_t_crosstable("Table Choices"),
+    tm_a_pca("Principal Component Analysis", plot_height = c(600L, 200L, 2000L), plot_width = c(600L, 200L, 2000L))
   )
 ) |>
   modify_title(
     title = "Exploratory Analysis Teal Demo App",
-    favicon = nest_logo
+    favicon = "https://raw.githubusercontent.com/insightsengineering/hex-stickers/main/PNG/nest.png"
   ) |>
-  modify_header(header) |>
-  modify_footer(footer)
+  modify_header(
+    tags$span(
+      style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
+      tags$span("My first teal app", style = "font-size: 30px;"),
+      tags$span(
+        style = "display: flex; align-items: center;",
+        tags$img(
+          src = "https://raw.githubusercontent.com/insightsengineering/hex-stickers/main/PNG/nest.png",
+          alt = "NEST logo", height = "45px", style = "margin-right:10px;"
+        ),
+        tags$span(style = "font-size: 24px;", "NEST @ Roche")
+      )
+    )
+  ) |>
+  modify_footer(
+    tags$p(
+      "This teal app is brought to you by the NEST Team at Roche/Genentech.
+        For more information, please visit:",
+      tags$a(
+        href = "https://github.com/insightsengineering/teal.gallery/tree/main/exploratory",
+        target = "_blank", "Source Code"
+      ), ", ",
+      tags$a(
+        href = "https://github.com/insightsengineering/teal.gallery/issues",
+        target = "_blank", "Report Issues"
+      )
+    )
+  )
 
 shinyApp(app$ui, app$server)
diff --git a/exploratory/app_des.R b/exploratory/app_des.R
new file mode 100644
index 00000000..f1fb3282
--- /dev/null
+++ b/exploratory/app_des.R
@@ -0,0 +1,416 @@
+library(teal.modules.general)
+options(
+  shiny.useragg = FALSE,
+  teal.ggplot2_args = teal.widgets::ggplot2_args(labs = list(caption = "NEST PROJECT"))
+)
+
+## Data reproducible code ----
+data <- teal_data()
+data <- within(data, {
+  library(random.cdisc.data)
+  library(dplyr)
+  library(tidyr)
+  library(ggExtra)
+  library(ggpmisc)
+  library(ggpp)
+  library(goftest)
+  library(gridExtra)
+  library(htmlwidgets)
+  library(jsonlite)
+  library(lattice)
+  library(MASS)
+  library(rlang)
+  library(rtables)
+  library(nestcolor)
+  library(broom)
+  library(colourpicker)
+  library(sparkline)
+
+
+  ADSL <- radsl(seed = 1)
+  ADRS <- radrs(ADSL, seed = 1)
+  ADLB <- radlb(ADSL, seed = 1)
+  ADLBPCA <- ADLB %>%
+    dplyr::select(USUBJID, STUDYID, SEX, ARMCD, AVAL, AVISIT, PARAMCD) %>%
+    tidyr::pivot_wider(
+      values_from = "AVAL",
+      names_from = c("PARAMCD", "AVISIT"),
+      names_sep = " - "
+    )
+})
+
+join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS", "ADLB", "ADLBPCA")]
+
+## Reusable Configuration For Modules
+ADSL <- data[["ADSL"]]
+ADRS <- data[["ADRS"]]
+ADLB <- data[["ADLB"]]
+ADLBPCA <- data[["ADLBPCA"]]
+
+
+## App header and footer ----
+nest_logo <- "https://raw.githubusercontent.com/insightsengineering/hex-stickers/main/PNG/nest.png"
+app_source <- "https://github.com/insightsengineering/teal.gallery/tree/main/exploratory"
+gh_issues_page <- "https://github.com/insightsengineering/teal.gallery/issues"
+
+header <- tags$span(
+  style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
+  tags$span("My first teal app", style = "font-size: 30px;"),
+  tags$span(
+    style = "display: flex; align-items: center;",
+    tags$img(src = nest_logo, alt = "NEST logo", height = "45px", style = "margin-right:10px;"),
+    tags$span(style = "font-size: 24px;", "NEST @ Roche")
+  )
+)
+
+footer <- tags$p(
+  "This teal app is brought to you by the NEST Team at Roche/Genentech.
+        For more information, please visit:",
+  tags$a(href = app_source, target = "_blank", "Source Code"), ", ",
+  tags$a(href = gh_issues_page, target = "_blank", "Report Issues")
+)
+
+app <- init(
+  data = data,
+  filter = teal_slices(
+    count_type = "all",
+    teal_slice(dataname = "ADSL", varname = "SEX"),
+    teal_slice(dataname = "ADSL", varname = "AGE")
+  ),
+  modules = modules(
+    tm_front_page(
+      label = "App Info",
+      header_text = c(
+        "Info about input data source" =
+          "This app uses CDISC ADaM datasets randomly generated by `random.cdisc.data` R packages"
+      ),
+      tables = list(
+        `NEST packages used in this demo app` = data.frame(Packages = c("teal.modules.general", "random.cdisc.data"))
+      )
+    ),
+    tm_file_viewer(
+      label = "File viewer",
+      input_path = list(
+        png = "https://www.r-project.org/logo/Rlogo.png",
+        Rmd = "https://raw.githubusercontent.com/tidyverse/dplyr/master/README.Rmd",
+        pdf = "https://cran.r-project.org/web/packages/shinyTree/shinyTree.pdf",
+        "example directory" = "./packrat/desc/"
+      )
+    ),
+    tm_data_table("Data Table"),
+    tm_variable_browser("Variable Browser"),
+    tm_missing_data("Missing Data"),
+    tm_g_distribution(
+      "Distribution",
+      dist_var = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL, subset = names(Filter(isTRUE, sapply(ADSL, is.numeric)))),
+          selected = "BMRKR1",
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      strata_var = data_extract_spec(
+        dataname = "ADSL",
+        filter = filter_spec(
+          vars = choices_selected(
+            variable_choices(ADSL, names(Filter(isTRUE, sapply(ADSL, is.factor)))),
+            selected = NULL
+          ),
+          multiple = TRUE
+        )
+      ),
+      group_var = data_extract_spec(
+        dataname = "ADSL",
+        filter = filter_spec(
+          vars = choices_selected(
+            variable_choices(ADSL, names(Filter(isTRUE, sapply(ADSL, is.factor)))),
+            selected = NULL
+          ),
+          multiple = TRUE
+        )
+      )
+    ),
+    tm_outliers(
+      "Outliers",
+      outlier_var = data_extract_spec(
+        dataname = "ADLB",
+        select = select_spec(
+          choices = variable_choices(ADLB, c("AVAL", "CHG", "PCHG", "BASE")),
+          selected = "AVAL",
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      categorical_var = data_extract_spec(
+        dataname = "ADLB",
+        select = select_spec(
+          choices = variable_choices(ADLB, c("PARAM", "PARAMCD")),
+          selected = NULL,
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      )
+    ),
+    tm_g_association(
+      ref = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL),
+          selected = "AGE",
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      vars = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL),
+          selected = "ARMCD",
+          multiple = TRUE,
+          fixed = FALSE
+        )
+      )
+    ),
+    tm_g_bivariate(
+      x = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL),
+          selected = "AGE",
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      y = data_extract_spec(
+        dataname = "ADLB",
+        select = select_spec(
+          choices = variable_choices(ADLB, c("AVAL", "CHG", "PCHG", "ANRIND", "BASE")),
+          selected = "AVAL",
+          multiple = FALSE,
+          fixed = FALSE
+        ),
+        filter = list(
+          filter_spec(
+            vars = "PARAMCD",
+            choices = value_choices(ADLB, "PARAMCD", "PARAM"),
+            selected = levels(ADLB$PARAMCD)[1],
+            multiple = FALSE,
+            label = "Select lab:"
+          ),
+          filter_spec(
+            vars = "AVISIT",
+            choices = levels(ADLB$AVISIT),
+            selected = levels(ADLB$AVISIT)[1],
+            multiple = FALSE,
+            label = "Select visit:"
+          )
+        )
+      ),
+      row_facet = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL, subset = names(Filter(isTRUE, sapply(ADSL, is.factor)))),
+          selected = NULL,
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      col_facet = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL, subset = names(Filter(isTRUE, sapply(ADSL, is.factor)))),
+          selected = NULL,
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      use_density = FALSE,
+      plot_height = c(600L, 200L, 2000L),
+      ggtheme = "gray"
+    ),
+    tm_a_regression(
+      label = "Regression",
+      response = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL, subset = names(Filter(isTRUE, sapply(ADSL, is.numeric)))),
+          selected = "BMRKR1",
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      regressor = data_extract_spec(
+        dataname = "ADRS",
+        filter = filter_spec(
+          vars = "PARAMCD",
+          sep = " - ",
+          choices = value_choices(ADRS, "PARAMCD", "PARAM", c("BESRSPI", "INVET")),
+          selected = "BESRSPI",
+          multiple = FALSE,
+          label = "Choose endpoint"
+        ),
+        select = select_spec(
+          choices = variable_choices(ADRS, c("AVALC", "AVAL")),
+          selected = "AVALC",
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      )
+    ),
+    tm_g_response(
+      response = data_extract_spec(
+        dataname = "ADRS",
+        filter = filter_spec(
+          vars = "PARAMCD",
+          sep = " - ",
+          choices = value_choices(ADRS, "PARAMCD", "PARAM", c("BESRSPI", "INVET")),
+          selected = "BESRSPI",
+          multiple = FALSE,
+          label = "Choose endpoint"
+        ),
+        select = select_spec(
+          choices = variable_choices(ADRS, subset = names(Filter(isTRUE, sapply(ADRS, is.factor)))),
+          selected = "AVALC",
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      x = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL, subset = names(Filter(isTRUE, sapply(ADSL, is.factor)))),
+          selected = "STRATA2",
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      row_facet = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL, subset = names(Filter(isTRUE, sapply(ADSL, is.factor)))),
+          selected = NULL,
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      col_facet = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL, subset = names(Filter(isTRUE, sapply(ADSL, is.factor)))),
+          selected = NULL,
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      coord_flip = FALSE
+    ),
+    tm_g_scatterplotmatrix(
+      label = "Scatterplot Matrix",
+      variables = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL),
+          selected = c("AGE", "BMRKR1"),
+          multiple = TRUE,
+          fixed = FALSE
+        )
+      )
+    ),
+    tm_g_scatterplot(
+      "Scatterplot",
+      x = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL),
+          selected = "AGE",
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      y = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL),
+          selected = "BMRKR1",
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      row_facet = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL, subset = names(Filter(isTRUE, sapply(ADSL, is.factor)))),
+          selected = NULL,
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      col_facet = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL, subset = names(Filter(isTRUE, sapply(ADSL, is.factor)))),
+          selected = NULL,
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      color_by = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL, subset = names(Filter(isTRUE, sapply(ADSL, is.factor)))),
+          selected = NULL,
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      size = 3, alpha = 1,
+      plot_height = c(600L, 200L, 2000L)
+    ),
+    tm_t_crosstable(
+      "Table Choices",
+      x = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL, subset = names(Filter(isTRUE, sapply(ADSL, is.factor)))),
+          selected = "STRATA2",
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      ),
+      y = data_extract_spec(
+        dataname = "ADSL",
+        select = select_spec(
+          choices = variable_choices(ADSL),
+          selected = "ARMCD",
+          multiple = FALSE,
+          fixed = FALSE
+        )
+      )
+    ),
+    tm_a_pca(
+      "Principal Component Analysis",
+      dat = data_extract_spec(
+        dataname = "ADLBPCA",
+        select = select_spec(
+          choices = variable_choices(ADLBPCA, names(Filter(isTRUE, sapply(ADLBPCA, is.numeric)))),
+          selected = c("ALT - WEEK 5 DAY 36", "CRP - WEEK 5 DAY 36", "IGA - WEEK 5 DAY 36"),
+          multiple = TRUE,
+          fixed = FALSE,
+          label = "Variable"
+        ),
+      ),
+      plot_height = c(600L, 200L, 2000L),
+      plot_width = c(600L, 200L, 2000L)
+    )
+  )
+) |>
+  modify_title(
+    title = "Exploratory Analysis Teal Demo App",
+    favicon = nest_logo
+  ) |>
+  modify_header(header) |>
+  modify_footer(footer)
+
+shinyApp(app$ui, app$server)