ph_with

add objects into a new shape on the current slide

add object into a new shape in the current slide. This function is able to add all supported outputs to a presentation and should replace calls to older functions starting with ph_with_*.

Usage

ph_with(x, value, ...)
# S3 method for character
ph_with(x, value, location, ...)
# S3 method for numeric
ph_with(x, value, location, format_fun = format, ...)
# S3 method for factor
ph_with(x, value, location, ...)
# S3 method for logical
ph_with(x, value, location, format_fun = format, ...)
# S3 method for block_list
ph_with(x, value, location, ...)
# S3 method for unordered_list
ph_with(x, value, location, ...)
# S3 method for data.frame
ph_with(x, value, location, header = TRUE,
  first_row = TRUE, first_column = FALSE, last_row = FALSE,
  last_column = FALSE, ...)
# S3 method for gg
ph_with(x, value, location, ...)
# S3 method for external_img
ph_with(x, value, location, use_loc_size = TRUE,
  ...)
# S3 method for fpar
ph_with(x, value, location, ...)
# S3 method for xml_document
ph_with(x, value, location, ...)

Methods (by class)

• character: add a character vector to a new shape on the current slide, values will be added as paragraphs.

• numeric: add a numeric vector to a new shape on the current slide, values will be be first formatted then added as paragraphs.

• factor: add a factor vector to a new shape on the current slide, values will be be converted as character and then added as paragraphs.

• block_list: add a block_list made of fpar to a new shape on the current slide.

• unordered_list: add a unordered_list made of fpar to a new shape on the current slide.

• data.frame: add a data.frame to a new shape on the current slide. Use package flextable instead for more advanced formattings.

• gg: add a ggplot object to a new shape on the current slide. Use package rvg for more advanced graphical features.

• external_img: add a external_img to a new shape on the current slide.

  When value is a external_img object, image will be copied into the PowerPoint presentation. The width and height specified in call to external_img will be ignored, their values will be those of the location, unless use_loc_size is set to FALSE.

• fpar: add an fpar to a new shape on the current slide as a single paragraph in a block_list.

• xml_document: add an xml_document object to a new shape on the current slide. This function is to be used to add custom openxml code.

See Also

ph_location_type, ph_location, ph_location_label, ph_location_left, ph_location_right, ph_location_fullsize, ph_location_template

Aliases

• ph_with
• ph_with.character
• ph_with.numeric
• ph_with.factor
• ph_with.logical
• ph_with.block_list
• ph_with.unordered_list
• ph_with.data.frame
• ph_with.gg
• ph_with.external_img
• ph_with.fpar
• ph_with.xml_document

Examples

# NOT RUN {
fileout <- tempfile(fileext = ".pptx")
doc <- read_pptx()
doc <- add_slide(doc, layout = "Two Content",
  master = "Office Theme")
doc <- ph_with(x = doc, value = c("Un titre", "Deux titre"),
               location = ph_location_left() )
doc <- ph_with(x = doc, value = iris[1:4, 3:5],
               location = ph_location_right() )

if( require("ggplot2") ){
  doc <- add_slide(doc)
  gg_plot <- ggplot(data = iris ) +
    geom_point(mapping = aes(Sepal.Length, Petal.Length),
      size = 3) +
    theme_minimal()
  doc <- ph_with(x = doc, value = gg_plot,
                 location = ph_location_fullsize() )
  doc <- ph_with(x = doc, value = "graphic title",
               location = ph_location_type(type="title") )
}

doc <- add_slide(doc, layout = "Title and Content",
  master = "Office Theme")
img.file <- file.path( R.home("doc"), "html", "logo.jpg" )
doc <- ph_with(x = doc, external_img(img.file, 100/72, 76/72),
               location = ph_location_right(), use_loc_size = FALSE )

svg_file <- file.path(R.home(component = "doc"), "html/Rlogo.svg")
if( require("rsvg") ){
  doc <- ph_with(x = doc, external_img(svg_file),
    location = ph_location_left(),
    use_loc_size = TRUE )
}
# block list ------
bl <- block_list(
  fpar(ftext("hello world", shortcuts$fp_bold(color = "pink"))),
  fpar(
    ftext("hello", shortcuts$fp_bold()),
    ftext("hello", shortcuts$fp_italic(color="red"))
  ))
doc <- add_slide(doc)
doc <- ph_with(x = doc, value = bl,
               location = ph_location_type(type="body") )

# fpar ------
hw <- fpar(ftext("hello world", shortcuts$fp_bold(color = "pink")))
doc <- add_slide(doc)
doc <- ph_with(x = doc, value = hw,
               location = ph_location_type(type="body") )
# unordered_list ----
ul <- unordered_list(
  level_list = c(1, 2, 2, 3, 3, 1),
  str_list = c("Level1", "Level2", "Level2", "Level3", "Level3", "Level1"),
  style = fp_text(color = "red", font.size = 0) )
doc <- add_slide(doc)
doc <- ph_with(x = doc, value = ul,
               location = ph_location_fullsize() )

print(doc, target = fileout )
# }