Skip to content

Commit f8ce4aa

Browse files
vedhavgithub-actions[bot]
vedhav
and
github-actions[bot]
authored
Use the the new add button for adding a card (#1400)
Part of insightsengineering/coredev-tasks#650 --------- Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
1 parent 075c3d3 commit f8ce4aa

40 files changed

+115
-77
lines changed

‎DESCRIPTION‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -60,7 +60,7 @@ Imports:
6060
teal.code (>= 0.6.1),
6161
teal.data (>= 0.7.0),
6262
teal.logger (>= 0.4.0),
63-
teal.reporter (>= 0.4.0.9004),
63+
teal.reporter (>= 0.4.0.9005),
6464
teal.widgets (>= 0.4.3.9001),
6565
tern.gee (>= 0.1.5),
6666
tern.mmrm (>= 0.3.1),

‎R/tm_a_gee.R‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -299,7 +299,8 @@ ui_gee <- function(id, ...) {
299299
),
300300
encoding = tags$div(
301301
### Reporter
302-
teal.reporter::simple_reporter_ui(ns("simple_reporter")),
302+
teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
303+
tags$br(), tags$br(),
303304
###
304305
tags$label("Encodings", class = "text-primary"), tags$br(),
305306
teal.transform::datanames_input(a[c("arm_var", "paramcd", "id_var", "visit_var", "cov_var", "aval_var")]),
@@ -623,7 +624,7 @@ srv_gee <- function(id,
623624
card$append_src(source_code_r())
624625
card
625626
}
626-
teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
627+
teal.reporter::add_card_button_srv("add_reporter", reporter = reporter, card_fun = card_fun)
627628
}
628629
})
629630
}

‎R/tm_a_mmrm.R‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -680,7 +680,8 @@ ui_mmrm <- function(id, ...) {
680680
),
681681
encoding = tags$div(
682682
### Reporter
683-
teal.reporter::simple_reporter_ui(ns("simple_reporter")),
683+
teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
684+
tags$br(), tags$br(),
684685
###
685686
tags$label("Encodings", class = "text-primary"), tags$br(),
686687
teal.transform::datanames_input(a[c("arm_var", "paramcd", "id_var", "visit_var", "cov_var", "aval_var")]),
@@ -1586,7 +1587,7 @@ srv_mmrm <- function(id,
15861587
card$append_src(source_code_r())
15871588
card
15881589
}
1589-
teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
1590+
teal.reporter::add_card_button_srv("add_reporter", reporter = reporter, card_fun = card_fun)
15901591
}
15911592
###
15921593
})

‎R/tm_g_barchart_simple.R‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -249,7 +249,8 @@ ui_g_barchart_simple <- function(id, ...) {
249249
),
250250
encoding = tags$div(
251251
### Reporter
252-
teal.reporter::simple_reporter_ui(ns("simple_reporter")),
252+
teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
253+
tags$br(), tags$br(),
253254
###
254255
tags$label("Encodings", class = "text-primary"), tags$br(),
255256
teal.transform::datanames_input(args[c("x", "fill", "x_facet", "y_facet")]),
@@ -616,7 +617,7 @@ srv_g_barchart_simple <- function(id,
616617
card$append_src(source_code_r())
617618
card
618619
}
619-
teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
620+
teal.reporter::add_card_button_srv("add_reporter", reporter = reporter, card_fun = card_fun)
620621
}
621622
###
622623
})

‎R/tm_g_ci.R‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -361,7 +361,8 @@ ui_g_ci <- function(id, ...) {
361361
output = teal.widgets::plot_with_settings_ui(id = ns("myplot")),
362362
encoding = tags$div(
363363
### Reporter
364-
teal.reporter::simple_reporter_ui(ns("simple_reporter")),
364+
teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
365+
tags$br(), tags$br(),
365366
###
366367
tags$label("Encodings", class = "text-primary"), tags$br(),
367368
teal.transform::datanames_input(args[c("x_var", "y_var", "color")]),
@@ -549,7 +550,7 @@ srv_g_ci <- function(id,
549550
card$append_src(source_code_r())
550551
card
551552
}
552-
teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
553+
teal.reporter::add_card_button_srv("add_reporter", reporter = reporter, card_fun = card_fun)
553554
}
554555
###
555556
})

‎R/tm_g_forest_rsp.R‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -449,7 +449,8 @@ ui_g_forest_rsp <- function(id, ...) {
449449
output = teal.widgets::plot_with_settings_ui(id = ns("myplot")),
450450
encoding = tags$div(
451451
### Reporter
452-
teal.reporter::simple_reporter_ui(ns("simple_reporter")),
452+
teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
453+
tags$br(), tags$br(),
453454
###
454455
tags$label("Encodings", class = "text-primary"), tags$br(),
455456
teal.transform::datanames_input(a[c("arm_var", "paramcd", "aval_var", "subgroup_var", "strata_var")]),
@@ -835,7 +836,7 @@ srv_g_forest_rsp <- function(id,
835836
card$append_src(source_code_r())
836837
card
837838
}
838-
teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
839+
teal.reporter::add_card_button_srv("add_reporter", reporter = reporter, card_fun = card_fun)
839840
}
840841
###
841842
})

‎R/tm_g_forest_tte.R‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -444,7 +444,8 @@ ui_g_forest_tte <- function(id, ...) {
444444
output = teal.widgets::plot_with_settings_ui(id = ns("myplot")),
445445
encoding = tags$div(
446446
### Reporter
447-
teal.reporter::simple_reporter_ui(ns("simple_reporter")),
447+
teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
448+
tags$br(), tags$br(),
448449
###
449450
tags$label("Encodings", class = "text-primary"), tags$br(),
450451
teal.transform::datanames_input(a[c("arm_var", "paramcd", "subgroup_var", "strata_var", "aval_var", "cnsr_var")]),
@@ -767,7 +768,7 @@ srv_g_forest_tte <- function(id,
767768
card$append_src(source_code_r())
768769
card
769770
}
770-
teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
771+
teal.reporter::add_card_button_srv("add_reporter", reporter = reporter, card_fun = card_fun)
771772
}
772773
###
773774
})

‎R/tm_g_ipp.R‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -411,7 +411,8 @@ ui_g_ipp <- function(id, ...) {
411411
output = teal.widgets::plot_with_settings_ui(id = ns("myplot")),
412412
encoding = tags$div(
413413
### Reporter
414-
teal.reporter::simple_reporter_ui(ns("simple_reporter")),
414+
teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
415+
tags$br(), tags$br(),
415416
###
416417
tags$label("Encodings", class = "text-primary"), tags$br(),
417418
teal.transform::datanames_input(
@@ -687,7 +688,7 @@ srv_g_ipp <- function(id,
687688
card$append_src(source_code_r())
688689
card
689690
}
690-
teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
691+
teal.reporter::add_card_button_srv("add_reporter", reporter = reporter, card_fun = card_fun)
691692
}
692693
###
693694
})

‎R/tm_g_km.R‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -482,7 +482,8 @@ ui_g_km <- function(id, ...) {
482482
),
483483
encoding = tags$div(
484484
### Reporter
485-
teal.reporter::simple_reporter_ui(ns("simple_reporter")),
485+
teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
486+
tags$br(), tags$br(),
486487
###
487488
tags$label("Encodings", class = "text-primary"), tags$br(),
488489
teal.transform::datanames_input(a[c("arm_var", "paramcd", "strata_var", "facet_var", "aval_var", "cnsr_var")]),
@@ -908,7 +909,7 @@ srv_g_km <- function(id,
908909
card$append_src(source_code_r())
909910
card
910911
}
911-
teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
912+
teal.reporter::add_card_button_srv("add_reporter", reporter = reporter, card_fun = card_fun)
912913
}
913914
###
914915
})

‎R/tm_g_lineplot.R‎

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -421,7 +421,8 @@ ui_g_lineplot <- function(id, ...) {
421421
),
422422
encoding = tags$div(
423423
### Reporter
424-
teal.reporter::simple_reporter_ui(ns("simple_reporter")),
424+
teal.reporter::add_card_button_ui(ns("add_reporter"), label = "Add Report Card"),
425+
tags$br(), tags$br(),
425426
###
426427
tags$label("Encodings", class = "text-primary"), tags$br(),
427428
teal.transform::datanames_input(a[c("group_var", "paramcd", "x", "y", "y_unit", "param")]),
@@ -732,7 +733,7 @@ srv_g_lineplot <- function(id,
732733
card$append_src(source_code_r())
733734
card
734735
}
735-
teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
736+
teal.reporter::add_card_button_srv("add_reporter", reporter = reporter, card_fun = card_fun)
736737
}
737738
###
738739
})

0 commit comments

Comments
 (0)