stash changes

insightsengineering · Jun 17, 2023 · ebf461d · ebf461d
1 parent abf3f51
commit ebf461d
Show file tree

Hide file tree

Showing 11 changed files with 62 additions and 92 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -47,6 +47,7 @@ export(analyze_num_patients)
 export(analyze_patients_exposure_in_cols)
 export(analyze_vars_in_cols)
 export(append_varlabels)
+export(arrange_grobs)
 export(as.rtable)
 export(combine_counts)
 export(combine_groups)
@@ -128,6 +129,7 @@ export(g_lineplot)
 export(g_step)
 export(g_waterfall)
 export(get_smooths)
+export(groups_list_to_df)
 export(h_adlb_worsen)
 export(h_adsl_adlb_merge_using_worst_flag)
 export(h_ancova)

diff --git a/NEWS.md b/NEWS.md
@@ -15,7 +15,7 @@
 
 ### Miscellaneous
 * Remove examples for unexported functions.
-* Export functions `has_count_in_cols`, `has_counts_difference`, `combine_counts`, `h_tab_rsp_one_biomarker`, `groups_list_to_df`.
+* Export functions `has_count_in_cols`, `has_counts_difference`, `combine_counts`, `h_tab_rsp_one_biomarker`, `groups_list_to_df`, `arrange_grobs`.
 * Updated README to include installation instructions for CRAN.
 * Began deprecation of `indent_mod` argument and replace it with the `.indent_mods` argument in `summarize_num_patients` and `analyze_num_patients`.
 

diff --git a/R/utils_grid.R b/R/utils_grid.R
@@ -95,7 +95,34 @@ stack_grobs <- function(...,
 #' @param padding_wt unit of length 1, horizontal space between each grob.
 #'
 #' @return A `grob`.
+#' @examples
+#' library(grid)
+#'
+#' \donttest{
+#' num <- lapply(1:9, textGrob)
+#' grid::grid.newpage()
+#' grid.draw(arrange_grobs(grobs = num, ncol = 2))
+#'
+#' showViewport()
+#'
+#' g1 <- circleGrob(gp = gpar(col = "blue"))
+#' g2 <- circleGrob(gp = gpar(col = "red"))
+#' g3 <- textGrob("TEST TEXT")
+#' grid::grid.newpage()
+#' grid.draw(arrange_grobs(g1, g2, g3, nrow = 2))
+#'
+#' showViewport()
 #'
+#' grid::grid.newpage()
+#' grid.draw(arrange_grobs(g1, g2, g3, ncol = 3))
+#'
+#' grid::grid.newpage()
+#' grid::pushViewport(grid::viewport(layout = grid::grid.layout(1, 2)))
+#' vp1 <- grid::viewport(layout.pos.row = 1, layout.pos.col = 2)
+#' grid.draw(arrange_grobs(g1, g2, g3, ncol = 2, vp = vp1))
+#'
+#' showViewport()
+#' }
 #' @export
 arrange_grobs <- function(...,
                           grobs = list(...),

diff --git a/man/arrange_grobs.Rd b/man/arrange_grobs.Rd
diff --git a/man/assertions.Rd b/man/assertions.Rd
diff --git a/man/groups_list_to_df.Rd b/man/groups_list_to_df.Rd
diff --git a/man/h_prop_diff_test.Rd b/man/h_prop_diff_test.Rd
diff --git a/man/prop_diff_test.Rd b/man/prop_diff_test.Rd
diff --git a/man/response_biomarkers_subgroups.Rd b/man/response_biomarkers_subgroups.Rd
diff --git a/man/response_subgroups.Rd b/man/response_subgroups.Rd
diff --git a/man/rtables_access.Rd b/man/rtables_access.Rd