Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Use the app modifiers in favor of init args #185

Merged
merged 3 commits into from
Jan 20, 2025
Merged

Use the app modifiers in favor of init args #185

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
fe0b609
chore: use modifiers
vedhav Jan 13, 2025
03f2e64
Update basic-teal/app.R
vedhav Jan 14, 2025
ac20e61
Merge branch 'dev' into 1310-simplify-init-args@dev
m7pr Jan 20, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
11 changes: 7 additions & 4 deletions RNA-seq/app.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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",
Expand Down Expand Up @@ -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)
14 changes: 9 additions & 5 deletions basic-teal/app.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -62,10 +62,14 @@ 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)
app$ui

shinyApp(app$ui, app$server)
11 changes: 7 additions & 4 deletions early-dev/app.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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"),
Expand Down Expand Up @@ -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)
11 changes: 7 additions & 4 deletions efficacy/app.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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"),
Expand Down Expand Up @@ -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)
11 changes: 7 additions & 4 deletions exploratory/app.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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"),
Expand Down Expand Up @@ -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)
11 changes: 7 additions & 4 deletions longitudinal/app.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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"),
Expand Down Expand Up @@ -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)
11 changes: 7 additions & 4 deletions patient-profile/app.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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"),
Expand Down Expand Up @@ -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)
11 changes: 7 additions & 4 deletions python/app.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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"),
Expand Down Expand Up @@ -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)
11 changes: 7 additions & 4 deletions safety/app.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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",
Expand Down Expand Up @@ -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)
Loading