doc: use agg_capture for man involving ragg

Author: davidgohel

NAMESPACE

@@ -334,6 +334,7 @@ importFrom(officer,table_width)
 importFrom(officer,to_html)
 importFrom(officer,to_rtf)
 importFrom(officer,to_wml)
+importFrom(ragg,agg_capture)
 importFrom(ragg,agg_png)
 importFrom(rlang,call_args)
 importFrom(rlang,enquo)

R/grid_grobs.R

@@ -98,48 +98,17 @@
 #' set_flextable_defaults(font.family = "Liberation Sans")
 #'
 #' ft <- flextable(head(mtcars))
-#'
 #' gr <- gen_grob(ft)
-#'
-#' png_f_1 <- tempfile(fileext = ".png")
-#' ragg::agg_png(
-#'   filename = png_f_1, width = 4, height = 2,
-#'   units = "in", res = 150)
-#' plot(gr)
-#' dev.off()
-#'
-#' png_f_2 <- tempfile(fileext = ".png")
-#' # get the size
-#' dims <- dim(gr)
-#' dims
-#' ragg::agg_png(
-#'   filename = png_f_2, width = dims$width + .1,
-#'   height = dims$height + .1, units = "in", res = 150
-#' )
+#' \dontshow{
+#' cap <- ragg::agg_capture(width = 7, height = 4, units = "in", res = 150)
+#' grDevices::dev.control("enable")
+#' }
 #' plot(gr)
+#' \dontshow{
+#' raster <- cap()
 #' dev.off()
-#'
-#'
-#' if (require("ggplot2")) {
-#'   png_f_3 <- tempfile(fileext = ".png")
-#'   z <- summarizor(iris, by = "Species")
-#'   ft <- as_flextable(z, spread_first_col = TRUE)
-#'   ft <- color(ft, color = "gray", part = "all")
-#'   gg <- ggplot(data = iris, aes(Sepal.Length, Petal.Width)) +
-#'     annotation_custom(
-#'       gen_grob(ft, scaling = "full"),
-#'       xmin  = 4.5, xmax = 7.5, ymin = 0.25, ymax = 2.25) +
-#'     geom_point() +
-#'     theme_minimal()
-#'   ragg::agg_png(
-#'     filename = png_f_3, width = 7,
-#'     height = 7, units = "in", res = 150
-#'   )
-#'   print(gg)
-#'   dev.off()
+#' plot(as.raster(raster))
 #' }
-#'
-#'
 #' @family flextable print function
 #' @importFrom grid gTree
 gen_grob <- function(x,

R/patchwork.R

@@ -128,19 +128,20 @@
 #' ft <- align(ft, align = "right", part = "all")
 #' ft <- autofit(ft)
 #'
-#' tf <- tempfile(fileext = ".png")
-#' ragg::agg_png(
-#'   filename = tf, width = 10,
-#'   height = 5, units = "in", res = 150
-#' )
+#' \dontshow{
+#' cap <- ragg::agg_capture(width = 7, height = 6, units = "in", res = 150)
+#' grDevices::dev.control("enable")
+#' }
 #' print(
 #'   wrap_flextable(ft, flex_body = TRUE, just = "right") +
-#'     p +
-#'     plot_layout(widths = c(1.1, 2))
+#'     p + plot_layout(widths = c(1.1, 2))
 #' )
+#' \dontshow{
+#' raster <- cap()
 #' dev.off()
-#'
+#' plot(as.raster(raster))
 #' init_flextable_defaults()
+#' }
 #' @family flextable print function
 wrap_flextable <- function(
   x,

R/printers.R

@@ -1011,7 +1011,7 @@ save_as_rtf <- function(..., values = NULL, path, pr_section = NULL) {
 #'
 #' init_flextable_defaults()
 #' @family flextable print function
-#' @importFrom ragg agg_png
+#' @importFrom ragg agg_png agg_capture
 save_as_image <- function(x, path, expand = 10, res = 200, ...) {
   if (!inherits(x, "flextable")) {
     stop(sprintf("Function `%s` supports only flextable objects.", as.character(sys.call()[[1]])))
@@ -1077,13 +1077,17 @@ save_as_image <- function(x, path, expand = 10, res = 200, ...) {
 #' set_flextable_defaults(font.family = "Liberation Sans")
 #' ftab <- as_flextable(cars)
 #'
-#' tf <- tempfile(fileext = ".png")
-#' agg_png(
-#'   filename = tf, width = 1.7, height = 3.26, unit = "in",
-#'   background = "transparent", res = 150
-#' )
+#' \dontshow{
+#' cap <- ragg::agg_capture(width = 7, height = 6, units = "in", res = 150)
+#' grDevices::dev.control("enable")
+#' }
 #' plot(ftab)
+#' \dontshow{
+#' raster <- cap()
 #' dev.off()
+#' plot(as.raster(raster))
+#' init_flextable_defaults()
+#' }
 #' @family flextable print function
 #' @importFrom grid grid.newpage grid.draw viewport pushViewport popViewport
 plot.flextable <- function(x, ...) {