if (FALSE) {
library(dplyr) # required to run examples
file <- file.path(tempdir(), "figure1.png")
png(file)
plot(1:10)
dev.off()
# Read in PNG file in binary format
rtf_read_figure(file) %>%
rtf_figure() %>%
attributes()
}
Run the code above in your browser using DataLab