Use the app modifiers in favor of init args (#185)

Part of insightsengineering/teal#1310 --------- Signed-off-by: Vedha Viyash <[email protected]> Co-authored-by: Marcin <[email protected]>
insightsengineering · Jan 20, 2025 · c4d8237 · c4d8237
1 parent a94fd42
commit c4d8237
Show file tree

Hide file tree

Showing 9 changed files with 64 additions and 37 deletions.
diff --git a/RNA-seq/app.R b/RNA-seq/app.R
@@ -38,9 +38,6 @@ footer <- tags$p(
 
 app <- init(
   data = data,
-  title = build_app_title("RNA-Seq Analysis Teal Demo App", nest_logo),
-  header = header,
-  footer = footer,
   modules = modules(
     tm_front_page(
       label = "App Info",
@@ -84,7 +81,13 @@ app <- init(
       mae_name = "MAE"
     )
   )
-)
+) |>
+  modify_title(
+    title = "RNA-Seq Analysis Teal Demo App",
+    favicon = nest_logo
+  ) |>
+  modify_header(header = header) |>
+  modify_footer(footer = footer)
 
 ## Not run:
 shinyApp(app$ui, app$server)
diff --git a/basic-teal/app.R b/basic-teal/app.R
@@ -62,10 +62,13 @@ footer <- tags$p(
 app <- init(
   data = data,
   filter = filters,
-  modules = modules(example_module()),
-  title = build_app_title("Basic Teal Demo App", nest_logo),
-  header = header,
-  footer = footer
-)
+  modules = modules(example_module())
+) |>
+  modify_title(
+    title = "Basic Teal Demo App",
+    favicon = nest_logo
+  ) |>
+  modify_header(header = header) |>
+  modify_footer(footer = footer)
 
 shinyApp(app$ui, app$server)
diff --git a/early-dev/app.R b/early-dev/app.R
@@ -230,9 +230,6 @@ footer <- tags$p(
 ## Setup App
 app <- init(
   data = data,
-  title = build_app_title("Early Development Analysis Teal Demo App", nest_logo),
-  header = header,
-  footer = footer,
   filter = teal_slices(
     count_type = "all",
     teal_slice(dataname = "ADSL", varname = "SAFFL", selected = "Y"),
@@ -435,7 +432,13 @@ app <- init(
       plot_height = c(1200, 400, 5000)
     )
   )
-)
+) |>
+  modify_title(
+    title = "Early Development Analysis Teal Demo App",
+    favicon = nest_logo
+  ) |>
+  modify_header(header = header) |>
+  modify_footer(footer = footer)
 
 ## Start Teal Shiny App ----
 shinyApp(app$ui, app$server)
diff --git a/efficacy/app.R b/efficacy/app.R
@@ -151,9 +151,6 @@ footer <- tags$p(
 ## Setup App
 app <- init(
   data = data,
-  title = build_app_title("Efficacy Analysis Teal Demo App", nest_logo),
-  header = header,
-  footer = footer,
   filter = teal_slices(
     count_type = "all",
     teal_slice(dataname = "ADSL", varname = "ITTFL", selected = "Y"),
@@ -299,6 +296,12 @@ app <- init(
       paramcd = cs_paramcd_qs
     )
   )
-)
+) |>
+  modify_title(
+    title = "Efficacy Analysis Teal Demo App",
+    favicon = nest_logo
+  ) |>
+  modify_header(header = header) |>
+  modify_footer(footer = footer)
 
 shinyApp(app$ui, app$server)
diff --git a/exploratory/app.R b/exploratory/app.R
@@ -224,9 +224,6 @@ footer <- tags$p(
 
 app <- init(
   data = data,
-  title = build_app_title("Exploratory Analysis Teal Demo App", nest_logo),
-  header = header,
-  footer = footer,
   filter = teal_slices(
     count_type = "all",
     teal_slice(dataname = "ADSL", varname = "SEX"),
@@ -348,6 +345,12 @@ app <- init(
       plot_width = c(600L, 200L, 2000L)
     )
   )
-)
+) |>
+  modify_title(
+    title = "Exploratory Analysis Teal Demo App",
+    favicon = nest_logo
+  ) |>
+  modify_header(header = header) |>
+  modify_footer(footer = footer)
 
 shinyApp(app$ui, app$server)
diff --git a/longitudinal/app.R b/longitudinal/app.R
@@ -436,9 +436,6 @@ footer <- tags$p(
 
 app <- teal::init(
   data = data,
-  title = build_app_title("Longitudinal Analysis Teal Demo App", nest_logo),
-  header = header,
-  footer = footer,
   filter = teal_slices(
     count_type = "all",
     teal_slice(dataname = "ADSL", varname = "SEX"),
@@ -773,6 +770,12 @@ app <- teal::init(
       )
     )
   )
-)
+) |>
+  modify_title(
+    title = "Longitudinal Analysis Teal Demo App",
+    favicon = nest_logo
+  ) |>
+  modify_header(header = header) |>
+  modify_footer(footer = footer)
 
 shinyApp(app$ui, app$server)
diff --git a/patient-profile/app.R b/patient-profile/app.R
@@ -100,9 +100,6 @@ footer <- tags$p(
 
 app <- init(
   data = data,
-  title = build_app_title("Patient Profile Analysis Teal Demo App", nest_logo),
-  header = header,
-  footer = footer,
   filter = teal_slices(
     count_type = "all",
     teal_slice(dataname = "ADSL", varname = "SEX"),
@@ -310,6 +307,12 @@ app <- init(
       ),
     )
   )
-)
+) |>
+  modify_title(
+    title = "Patient Profile Analysis Teal Demo App",
+    favicon = nest_logo
+  ) |>
+  modify_header(header = header) |>
+  modify_footer(footer = footer)
 
 shinyApp(app$ui, app$server)
diff --git a/python/app.R b/python/app.R
@@ -105,9 +105,6 @@ footer <- tags$p(
 
 app <- teal::init(
   data = data,
-  title = build_app_title("Python Dataset Teal Demo App", nest_logo),
-  header = header,
-  footer = footer,
   modules = modules(
     tm_data_table("Data Table"),
     tm_variable_browser("Variable Browser"),
@@ -155,6 +152,12 @@ app <- teal::init(
       )
     )
   )
-)
+) |>
+  modify_title(
+    title = "Python Dataset Teal Demo App",
+    favicon = nest_logo
+  ) |>
+  modify_header(header = header) |>
+  modify_footer(footer = footer)
 
 shinyApp(app$ui, app$server)
diff --git a/safety/app.R b/safety/app.R
@@ -177,9 +177,6 @@ footer <- tags$p(
 ## Setup App
 app <- teal::init(
   data = data,
-  title = build_app_title("Safety Analysis Teal Demo App", nest_logo),
-  header = header,
-  footer = footer,
   # Set initial filter state as safety-evaluable population
   filter = teal_slices(
     count_type = "all",
@@ -494,6 +491,12 @@ app <- teal::init(
       plot_height = c(1000L, 200L, 4000L)
     )
   )
-)
+) |>
+  modify_title(
+    title = "Safety Analysis Teal Demo App",
+    favicon = nest_logo
+  ) |>
+  modify_header(header = header) |>
+  modify_footer(footer = footer)
 
 shinyApp(app$ui, app$server)