Start to use build_app_title to create app title (#116)

Updates the teal.gallery apps to use the `build_app_title` helper function. No need to worry about the renv.lock files as they will be auto-updated anyway.
insightsengineering · Jan 4, 2024 · 76d5e7a · 76d5e7a
1 parent dd80725
commit 76d5e7a
Show file tree

Hide file tree

Showing 9 changed files with 9 additions and 12 deletions.
diff --git a/RNA-seq/app.R b/RNA-seq/app.R
@@ -61,9 +61,9 @@ app <- init(
       mae_name = "MAE"
     )
   ),
+  title = build_app_title("RNA-Seq Analysis Teal Demo App", nest_logo),
   header = tags$span(
     style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
-    tags$head(tags$link(rel = "shortcut icon", href = nest_logo), tags$title("RNA-Seq Analysis Teal Demo App")),
     tags$span(
       style = "font-size: 30px;",
       "Example teal app focusing on analysis of RNA-seq data with teal.modules.hermes"

diff --git a/basic-teal/app.R b/basic-teal/app.R
@@ -8,9 +8,9 @@ app <- init(
     teal_slice(dataname = "IRIS", varname = "Species", multiple = FALSE)
   ),
   modules = modules(example_module()),
+  title = build_app_title("Basic Teal Demo App", nest_logo),
   header = tags$span(
     style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
-    tags$head(tags$link(rel = "shortcut icon", href = nest_logo), tags$title("Basic Teal Demo App")),
     tags$span(
       style = "font-size: 30px;",
       "My first teal app"

diff --git a/early-dev/app.R b/early-dev/app.R
@@ -423,12 +423,9 @@ app <- init(
       plot_height = c(1200, 400, 5000)
     )
   ),
+  title = build_app_title("Early Development Analysis Teal Demo App", nest_logo),
   header = tags$span(
     style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
-    tags$head(
-      tags$link(rel = "shortcut icon", href = nest_logo),
-      tags$title("Early Development Analysis Teal Demo App")
-    ),
     tags$span(
       style = "font-size: 30px;",
       "Example teal app focusing on analysis of early-phase clinical trial data with teal.osprey"

diff --git a/efficacy/app.R b/efficacy/app.R
@@ -277,9 +277,9 @@ app <- init(
       paramcd = cs_paramcd_qs
     )
   ),
+  title = build_app_title("Efficacy Analysis Teal Demo App", nest_logo),
   header = tags$span(
     style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
-    tags$head(tags$link(rel = "shortcut icon", href = nest_logo), tags$title("Efficacy Analysis Teal Demo App")),
     tags$span(
       style = "font-size: 30px;",
       "Example teal app focusing on efficacy analysis of clinical trial data with teal.modules.clinical"

diff --git a/exploratory/app.R b/exploratory/app.R
@@ -325,9 +325,9 @@ app <- init(
       plot_width = c(600L, 200L, 2000L)
     )
   ),
+  title = build_app_title("Exploratory Analysis Teal Demo App", nest_logo),
   header = tags$span(
     style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
-    tags$head(tags$link(rel = "shortcut icon", href = nest_logo), tags$title("Exploratory Analysis Teal Demo App")),
     tags$span(
       style = "font-size: 30px;",
       "Example teal app for general dataset exploration with teal.modules.general"

diff --git a/longitudinal/app.R b/longitudinal/app.R
@@ -754,9 +754,9 @@ app <- teal::init(
       )
     )
   ),
+  title = build_app_title("Longitudinal Analysis Teal Demo App", nest_logo),
   header = tags$span(
     style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
-    tags$head(tags$link(rel = "shortcut icon", href = nest_logo), tags$title("Longitudinal Analysis Teal Demo App")),
     tags$span(
       style = "font-size: 30px;",
       "Example teal app focusing on analysis of longitudinal clinical trial data with teal.goshawk"

diff --git a/patient-profile/app.R b/patient-profile/app.R
@@ -473,9 +473,9 @@ app <- init(
       )
     )
   ),
+  title = build_app_title("Patient Profile Analysis Teal Demo App", nest_logo),
   header = tags$span(
     style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
-    tags$head(tags$link(rel = "shortcut icon", href = nest_logo), tags$title("Patient Profile Analysis Teal Demo App")),
     tags$span(
       style = "font-size: 30px;",
       "Example teal app focusing on patient-level analysis of clinical trial data with teal.modules.clinical"

diff --git a/python/app.R b/python/app.R
@@ -118,9 +118,9 @@ app <- teal::init(
       )
     )
   ),
+  title = build_app_title("Python Dataset Teal Demo App", nest_logo),
   header = tags$span(
     style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
-    tags$head(tags$link(rel = "shortcut icon", href = nest_logo), tags$title("Python Dataset Teal Demo App")),
     tags$span(
       style = "font-size: 30px;",
       "Example teal app using python dataset connector"

diff --git a/safety/app.R b/safety/app.R
@@ -478,9 +478,9 @@ app <- teal::init(
       plot_height = c(1000L, 200L, 4000L)
     )
   ),
+  title = build_app_title("Safety Analysis Teal Demo App", nest_logo),
   header = tags$span(
     style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
-    tags$head(tags$link(rel = "shortcut icon", href = nest_logo), tags$title("Safety Analysis Teal Demo App")),
     tags$span(
       style = "font-size: 30px;",
       "Example teal app focusing on safety analysis of clinical trial data with teal.modules.clinical"