if (requireNamespace("rvg") && interactive()) {
## rvg example
require(rvg)
tmp <- tempfile(fileext = ".xml")
dml_xlsx(file = tmp)
plot(1,1)
dev.off()
wb <- wb_workbook()$
add_worksheet()$
add_drawing(xml = tmp)$
add_drawing(xml = tmp, dims = NULL)
}
Run the code above in your browser using DataLab