feat: add unit (in, cm, mm) argument in function page_size()

fix #579

Author: davidgohel

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: officer
 Title: Manipulation of Microsoft Word and PowerPoint Documents
-Version: 0.6.7.003
+Version: 0.6.7.004
 Authors@R: c(
     person("David", "Gohel", , "[email protected]", role = c("aut", "cre")),
     person("Stefan", "Moog", , "[email protected]", role = "aut"),

NEWS.md

@@ -9,7 +9,7 @@
 
 - new convenience functions `body_replace_gg_at_bkm()` and `body_replace_plot_at_bkm()`
 to replace text content enclosed in a bookmark with a ggplot or a base plot.
-
+- add `unit` (in, cm, mm) argument in function `page_size()`.
 
 # officer 0.6.6
 

R/ooxml_run_objects.R

@@ -643,10 +643,15 @@ inch_to_tweep <- function(x) round(x * 72 * 20, digits = 0)
 #' in landscape mode then the length becomes the width and the width becomes the length.
 #' @param width,height page width, page height (in inches).
 #' @param orient page orientation, either 'landscape', either 'portrait'.
+#' @param unit unit for width and height, one of "in", "cm", "mm".
 #' @examples
 #' page_size(orient = "landscape")
 #' @family functions for section definition
-page_size <- function(width = 21 / 2.54, height = 29.7 / 2.54, orient = "portrait") {
+page_size <- function(width = 21 / 2.54, height = 29.7 / 2.54, orient = "portrait", unit = "in") {
+
+  width <- convin(unit = unit, x = width)
+  height <- convin(unit = unit, x = height)
+
   if (orient %in% "portrait") {
     h <- max(c(height, width))
     w <- min(c(height, width))