diff --git a/RNA-seq/app.R b/RNA-seq/app.R index 4e97072e..621e2e55 100644 --- 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 index 2cecb0c6..d84d25f6 100644 --- 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 index ad2807ac..2d6272e5 100644 --- 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 index 5aa7a4fd..4cb213a7 100644 --- 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 index 92e5746a..985bf912 100644 --- 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 index 329cffa0..30b8fd17 100644 --- 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 index 87ffe2fa..107a20db 100644 --- 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 index f3fe1398..6af6adba 100644 --- 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 index 3585fd26..3fdff582 100644 --- 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)