R/ph_with.R

In flextable: Functions for Tabular Reporting

#' @importFrom officer ph_with
#' @export
#' @title Add a flextable into a PowerPoint slide
#' @description
#'
#' Add a flextable in a PowerPoint document object produced
#' by [officer::read_pptx()].
#'
#' This function will create a native PowerPoint table from the flextable
#' and the result can be eventually edited.
#' @section caption:
#' Captions are not printed in PowerPoint slides.
#'
#' While captions are useful for document formats like Word, RTF, HTML, or PDF,
#' they aren't directly supported in PowerPoint slides. Unlike documents with
#' a defined layout, PowerPoint slides lack a structured document flow. They
#' don't function like HTML documents or paginated formats (RTF, Word, PDF).
#' This makes it technically challenging to determine the ideal placement for
#' a caption within a slide. Additionally, including a caption within the table
#' itself isn't feasible.
#' @param x a pptx device
#' @param value flextable object
#' @param location a location for a placeholder. See [officer::ph_location_type()]
#' for example.
#' @param ... unused arguments.
#' @note
#' The width and height of the table can not be set with `location`. Use
#' functions [width()], [height()], [autofit()]
#' and [dim_pretty()] instead. The overall size is resulting from
#' cells, paragraphs and text properties (i.e. padding, font size, border widths).
#' @examples
#' library(officer)
#'
#' ft <- flextable(head(iris))
#'
#' doc <- read_pptx()
#' doc <- add_slide(doc, "Title and Content", "Office Theme")
#' doc <- ph_with(doc, ft, location = ph_location_left())
#'
#' fileout <- tempfile(fileext = ".pptx")
#' print(doc, target = fileout)
ph_with.flextable <- function(x, value, location, ...) {
  stopifnot(inherits(x, "rpptx"))

  value <- flextable_global$defaults$post_process_all(value)
  value <- flextable_global$defaults$post_process_pptx(value)
  value <- fix_border_issues(value)

  graphic_frame <- gen_raw_pml(value)
  ph_with(x = x, value = as_xml_document(graphic_frame), location = location, ...)
}