if (FALSE) {
# Read in PNG file in binary format
file <- tempfile("figure", fileext = ".png")
png(file)
plot(1:10)
dev.off()
rtf_read_figure(file)
# Read in EMF file in binary format
library(devEMF)
file <- tempfile("figure", fileext = ".emf")
emf(file)
plot(1:10)
dev.off()
rtf_read_figure(file)
}
Run the code above in your browser using DataLab