x <- read_pptx()
layout_summary(x)
x <- add_slide(x, layout = "Two Content", master = "Office Theme")
# use `...` to fill placeholders in same step
x <- read_pptx()
x <- add_slide(x,
layout = "Two Content", `Title 1` = "A title",
dt = "Jan. 26, 2025", `body[2]` = "Body 2",
left = "Left side", `6` = "Footer"
)
Run the code above in your browser using DataLab