# write an rpptx object to a .pptx file ----
file <- tempfile(fileext = ".pptx")
x <- read_pptx() # empty presentation, has no slides yet
print(x, target = file)
# preview mode: save to temp file and open locally ----
if (FALSE) {
print(x, preview = TRUE)
}
Run the code above in your browser using DataLab