media_extract {officer} | 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)