feat: use card template to remove repeated code

insightsengineering · Sep 28, 2023 · f34e342 · f34e342
1 parent 75e9086
commit f34e342
Showing 1 changed file with 6 additions and 8 deletions.
diff --git a/R/tm_t_shift_by_arm.R b/R/tm_t_shift_by_arm.R
@@ -529,14 +529,12 @@ srv_shift_by_arm <- function(id,
     ### REPORTER
     if (with_reporter) {
       card_fun <- function(comment, label) {
-        card <- teal::TealReportCard$new()
-        title <- "Shift by Arm Table"
-        title <- ifelse(label == "", title, label)
-        card$set_name(title)
-        card$append_text(title, "header2")
-        if (with_filter) {
-          card$append_fs(filter_panel_api$get_filter_state())
-        }
+        card <- card_template(
+          title = "Shift by Arm Table",
+          label = label,
+          description = NULL,
+          with_filter = with_filter
+        )
         card$append_text("Table", "header3")
         card$append_table(table_r())
         if (!comment == "") {