option control on height & width in body_add_gg2()

fixes #68

NEWS.md

@@ -13,6 +13,7 @@ Crosstables for descriptive analyses. See documentation at <https://danchaltiel.
 -   Moved the legend above the table in `body_add_table_section()` (#73).
 -   Fixed `get_label()` on named vector columns (#72).
 -   Fixed `crosstable(drop_levels)` (#69, #70, #71).
+-   Option control on height & width in `body_add_gg2()` (#68).
 -   Flextable autofit now uses the recommended method (#62).
 -   Fixed a bug happening when NA is already a level (#59).
 -   Fixed error where `by` contains "label" (#56).

R/officer.R

@@ -682,7 +682,9 @@ body_add_img2 = function(doc, src, width, height,
 #'  body_add_gg2(p, w=14, h=10, scale=1.5) %>% #or units="cm" instead of using options
 #'  body_add_normal("Text after")
 #' write_and_open(doc)
-body_add_gg2 = function(doc, value, width = 6, height = 5,
+body_add_gg2 = function(doc, value,
+                        width = getOption("crosstable_gg_width", 6),
+                        height = getOption("crosstable_gg_height", 5),
                         units = getOption("crosstable_units", "in"),
                         style = getOption("crosstable_style_image", doc$default_styles$paragraph),
                         res = 300, ... ){

R/options.R

@@ -60,6 +60,7 @@
 #' @param normal_squish Should you squish text in normal paragraphs?
 #' @param title_squish Should you squish text in headers paragraphs?
 #' @param allow_break allow crosstable rows to break across pages
+#' @param gg_width,gg_height cf. [body_add_gg2()]
 #' @param section_title,section_title_level,section_sentence cf. [body_add_table_section()]
 #' @param style_normal For specifying styles used in your `{officer}` template.
 #' @param style_image For specifying styles used in your `{officer}` template.
@@ -100,6 +101,7 @@ crosstable_options = function(
     peek_docx=TRUE,
     font_code="Consolas",
     add_max_cols=25,
+    gg_width, gg_height,
     format_legend_name,
     table_legend_par_before,
     table_legend_prefix,