Update RMPT templates to use analyze function (#45)

Closes #44
insightsengineering · May 17, 2023 · 397a6ea · 397a6ea
1 parent bb2bbcf
commit 397a6ea
Show file tree

Hide file tree

Showing 4 changed files with 23 additions and 29 deletions.
diff --git a/tables/other/rmpt01.qmd b/tables/other/rmpt01.qmd
@@ -66,11 +66,11 @@ lyt <- basic_table(
     .labels = c(n_patients = "Number of Patients", sum_exposure = "Patient Time*"),
     custom_label = "Total Number of Patients and Patient Time"
   ) %>%
-  split_rows_by("aval_months_cat", label_pos = "topleft", split_label = "Duration of exposure") %>%
-  summarize_patients_exposure_in_cols(
-    var = "AVAL",
+  analyze_patients_exposure_in_cols(
+    var = "aval_months_cat",
     col_split = FALSE
-  )
+  ) %>%
+  append_topleft(c("", "Duration of exposure"))
 
 result <- build_table(lyt, df = anl, alt_counts_df = adsl_f)
 result
@@ -176,5 +176,4 @@ shinyApp(app$ui, app$server)
 ```
 
 {{< include ../../si.qmd >}}
-
 :::
diff --git a/tables/other/rmpt03.qmd b/tables/other/rmpt03.qmd
@@ -75,17 +75,17 @@ lyt <- basic_table(
     .labels = c(n_patients = "Number of Patients", sum_exposure = "Patient Time*"),
     custom_label = "Total Number of Patients and Patient Time"
   ) %>%
-  split_rows_by("AGEGR1", label_pos = "topleft", split_label = "Age group (years)") %>%
-  summarize_patients_exposure_in_cols(
-    var = "AVAL",
+  analyze_patients_exposure_in_cols(
+    var = "AGEGR1",
     col_split = FALSE
-  )
+  ) %>%
+  append_topleft(c("", "Age group (years)"))
 
 result <- build_table(lyt, df = anl, alt_counts_df = adsl_f)
 result
 ```
 
-## Table Modifying Age Groups
+## Table Excluding Empty Age Groups
 
 ```{r}
 lyt <- basic_table(
@@ -98,16 +98,14 @@ lyt <- basic_table(
     .labels = c(n_patients = "Number of Patients", sum_exposure = "Patient Time*"),
     custom_label = "Total Number of Patients and Patient Time"
   ) %>%
-  split_rows_by("AGEGR2",
-    split_fun = drop_split_levels, # "< 18" dropped
-    label_pos = "topleft", split_label = "Age group (years)"
-  ) %>%
-  summarize_patients_exposure_in_cols(
-    var = "AVAL",
+  analyze_patients_exposure_in_cols(
+    var = "AGEGR2",
     col_split = FALSE
-  )
+  ) %>%
+  append_topleft(c("", "Age group (years)"))
 
-result <- build_table(lyt, df = anl, alt_counts_df = adsl_f)
+result <- build_table(lyt, df = anl, alt_counts_df = adsl_f) %>%
+  prune_table()
 result
 ```
 
@@ -225,5 +223,4 @@ shinyApp(app$ui, app$server)
 ```
 
 {{< include ../../si.qmd >}}
-
 :::
diff --git a/tables/other/rmpt04.qmd b/tables/other/rmpt04.qmd
@@ -58,11 +58,11 @@ lyt <- basic_table(
     .labels = c(n_patients = "Number of Patients", sum_exposure = "Patient Time*"),
     custom_label = "Total Number of Patients and Patient Time"
   ) %>%
-  split_rows_by("ETHNIC", label_pos = "topleft", split_label = "Ethnicity") %>%
-  summarize_patients_exposure_in_cols(
-    var = "AVAL",
+  analyze_patients_exposure_in_cols(
+    var = "ETHNIC",
     col_split = FALSE
-  )
+  ) %>%
+  append_topleft(c("", "Ethnicity"))
 
 result <- build_table(lyt, df = anl, alt_counts_df = adsl_f)
 result
@@ -137,5 +137,4 @@ shinyApp(app$ui, app$server)
 ```
 
 {{< include ../../si.qmd >}}
-
 :::
diff --git a/tables/other/rmpt05.qmd b/tables/other/rmpt05.qmd
@@ -57,11 +57,11 @@ lyt <- basic_table(
     var = "AVAL", col_split = TRUE,
     .labels = c(n_patients = "Patients", sum_exposure = "Person time*")
   ) %>%
-  split_rows_by("RACE", label_pos = "topleft", split_label = obj_label(adex$RACE)) %>%
-  summarize_patients_exposure_in_cols(
-    var = "AVAL",
+  analyze_patients_exposure_in_cols(
+    var = "RACE",
     col_split = FALSE
-  )
+  ) %>%
+  append_topleft(c("", obj_label(adex$RACE)))
 
 result <- build_table(lyt, df = anl, alt_counts_df = adsl_f)
 result
@@ -143,5 +143,4 @@ shinyApp(app$ui, app$server)
 ```
 
 {{< include ../../si.qmd >}}
-
 :::