# NOT RUN {
img.file <- file.path( R.home("doc"), "html", "logo.jpg" )
doc <- read_pptx()
doc <- add_slide(doc)
doc <- ph_with(x = doc,
value = external_img(img.file, width = 1.39, height = 1.06),
location = ph_location_type(type = "body"),
use_loc_size = FALSE )
print(doc, target = tempfile(fileext = ".pptx"))
# }
Run the code above in your browser using DataLab