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

198 Include user's card labels when generating the report #229

Merged
merged 9 commits into from
Oct 13, 2023
Merged

198 Include user's card labels when generating the report #229

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
9 commits
Select commit Hold shift + click to select a range
312bda8
add card_template function and allow to pass label to reporter card c…
kartikeyakirar Oct 4, 2023
09600b6
Merge 312bda84f0cf3dbd49dfdf44a2adc9e868d61ab5 into 523ea6b9f664426d3…
kartikeyakirar Oct 4, 2023
e845fe0
[skip actions] Restyle files
github-actions[bot] Oct 4, 2023
1b7b41c
adding unit-test.
kartikeyakirar Oct 5, 2023
8c8f786
Merge branch '198_card_labels@main' of https://github.com/insightseng…
kartikeyakirar Oct 5, 2023
b7018cf
removed redundant parameter description
kartikeyakirar Oct 5, 2023
0920b19
fixing lintr issue
kartikeyakirar Oct 6, 2023
0cc3482
removing card_template and unit-test
kartikeyakirar Oct 11, 2023
ee4fdb1
renaming to report_card_template
kartikeyakirar Oct 12, 2023
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
3 changes: 2 additions & 1 deletion .lintr
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,6 @@
linters: linters_with_defaults(
line_length_linter = line_length_linter(120),
cyclocomp_linter = NULL,
object_usage_linter = NULL
object_usage_linter = NULL,
indentation_linter = NULL
kartikeyakirar marked this conversation as resolved.
Show resolved Hide resolved
)
12 changes: 7 additions & 5 deletions R/tm_g_ae_oview.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -369,11 +369,13 @@ srv_g_ae_oview <- function(id,
)
### REPORTER
if (with_reporter) {
card_fun <- function(comment) {
card <- teal::TealReportCard$new()
card$set_name("AE Overview")
card$append_text("AE Overview", "header2")
if (with_filter) card$append_fs(filter_panel_api$get_filter_state())
card_fun <- function(comment, label) {
card <- teal::report_card_template(
title = "AE Overview",
label = label,
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
if (!comment == "") {
Expand Down
12 changes: 7 additions & 5 deletions R/tm_g_ae_sub.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -389,11 +389,13 @@ srv_g_ae_sub <- function(id,

### REPORTER
if (with_reporter) {
card_fun <- function(comment) {
card <- teal::TealReportCard$new()
card$set_name("AE Subgroups")
card$append_text("AE Subgroups", "header2")
if (with_filter) card$append_fs(filter_panel_api$get_filter_state())
card_fun <- function(comment, label) {
card <- teal::report_card_template(
title = "AE Subgroups",
label = label,
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
if (!comment == "") {
Expand Down
12 changes: 7 additions & 5 deletions R/tm_g_butterfly.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -529,11 +529,13 @@ srv_g_butterfly <- function(id, data, filter_panel_api, reporter, dataname, labe

### REPORTER
if (with_reporter) {
card_fun <- function(comment) {
card <- teal::TealReportCard$new()
card$set_name("Butterfly")
card$append_text("Butterfly Plot", "header2")
if (with_filter) card$append_fs(filter_panel_api$get_filter_state())
card_fun <- function(comment, label) {
card <- teal::report_card_template(
title = "Butterfly Plot",
label = label,
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
if (!is.null(input$filter_var) || !is.null(input$facet_var) || !is.null(input$sort_by_var)) {
card$append_text("Selected Options", "header3")
}
Expand Down
12 changes: 7 additions & 5 deletions R/tm_g_events_term_id.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -377,11 +377,13 @@ srv_g_events_term_id <- function(id,

### REPORTER
if (with_reporter) {
card_fun <- function(comment) {
card <- teal::TealReportCard$new()
card$set_name("Events by Term")
card$append_text("Events by Term", "header2")
if (with_filter) card$append_fs(filter_panel_api$get_filter_state())
card_fun <- function(comment, label) {
card <- teal::report_card_template(
title = "Events by Term",
label = label,
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
if (!comment == "") {
Expand Down
12 changes: 7 additions & 5 deletions R/tm_g_heat_bygrade.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -495,11 +495,13 @@ srv_g_heatmap_bygrade <- function(id,

### REPORTER
if (with_reporter) {
card_fun <- function(comment) {
card <- teal::TealReportCard$new()
card$set_name("Heatmap by Grade")
card$append_text("Heatmap by Grade", "header2")
if (with_filter) card$append_fs(filter_panel_api$get_filter_state())
card_fun <- function(comment, label) {
card <- teal::report_card_template(
title = "Heatmap by Grade",
label = label,
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
if (!comment == "") {
Expand Down
12 changes: 7 additions & 5 deletions R/tm_g_patient_profile.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -951,11 +951,13 @@ srv_g_patient_profile <- function(id,

### REPORTER
if (with_reporter) {
card_fun <- function(comment) {
card <- teal::TealReportCard$new()
card$set_name("Patient Profile")
card$append_text("Patient Profile", "header2")
if (with_filter) card$append_fs(filter_panel_api$get_filter_state())
card_fun <- function(comment, label) {
card <- teal::report_card_template(
title = "Patient Profile",
label = label,
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Plot", "header3")
card$append_plot(plot_r(), dim = pws$dim())
if (!comment == "") {
Expand Down
12 changes: 7 additions & 5 deletions R/tm_g_spiderplot.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -438,11 +438,13 @@ srv_g_spider <- function(id, data, filter_panel_api, reporter, dataname, label,

### REPORTER
if (with_reporter) {
card_fun <- function(comment) {
card <- teal::TealReportCard$new()
card$set_name("Spider Plot")
card$append_text("Spider Plot", "header2")
if (with_filter) card$append_fs(filter_panel_api$get_filter_state())
card_fun <- function(comment, label) {
card <- teal::report_card_template(
title = "Spider Plot",
label = label,
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
if (!is.null(input$paramcd) || !is.null(input$xfacet_var) || !is.null(input$yfacet_var)) {
card$append_text("Selected Options", "header3")
}
Expand Down
12 changes: 7 additions & 5 deletions R/tm_g_swimlane.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -542,11 +542,13 @@ srv_g_swimlane <- function(id,

### REPORTER
if (with_reporter) {
card_fun <- function(comment) {
card <- teal::TealReportCard$new()
card$set_name("Swimlane")
card$append_text("Swimlane Plot", "header2")
if (with_filter) card$append_fs(filter_panel_api$get_filter_state())
card_fun <- function(comment, label) {
card <- teal::report_card_template(
title = "Swimlane Plot",
label = label,
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
if (!is.null(input$sort_var)) {
card$append_text("Selected Options", "header3")
card$append_text(paste("Sorted by:", input$sort_var))
Expand Down
12 changes: 7 additions & 5 deletions R/tm_g_waterfall.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -559,11 +559,13 @@ srv_g_waterfall <- function(id,

### REPORTER
if (with_reporter) {
card_fun <- function(comment) {
card <- teal::TealReportCard$new()
card$set_name("Waterfall")
card$append_text("Waterfall Plot", "header2")
if (with_filter) card$append_fs(filter_panel_api$get_filter_state())
card_fun <- function(comment, label) {
card <- teal::report_card_template(
title = "Waterfall Plot",
label = label,
with_filter = with_filter,
filter_panel_api = filter_panel_api
)
card$append_text("Selected Options", "header3")
card$append_text(paste0("Tumor Burden Parameter: ", input$bar_paramcd, "."))
if (!is.null(input$sort_var)) {
Expand Down