| media_extract | R Documentation | 
Extract files from a rpptx object.
media_extract(x, path, target)
| x | an rpptx object | 
| path | media path, should be a relative path | 
| target | target file | 
example_pptx <- system.file(package = "officer",
  "doc_examples/example.pptx")
doc <- read_pptx(example_pptx)
content <- pptx_summary(doc)
image_row <- content[content$content_type %in% "image", ]
media_file <- image_row$media_file
png_file <- tempfile(fileext = ".png")
media_extract(doc, path = media_file, target = png_file)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.