# NOT RUN {
x <- read_pptx()
x <- add_slide(x, layout = "Title and Content",
master = "Office Theme")
x <- ph_with_text(x, type = "body", str = "Hello world 1")
x <- add_slide(x, layout = "Title and Content",
master = "Office Theme")
x <- ph_with_text(x, type = "body", str = "Hello world 2")
x <- move_slide(x, index = 1, to = 2)
# }
Run the code above in your browser using DataCamp Workspace