if (FALSE) {
dat <- data.frame(
Species = c("setosa", "versicolor", "virginica"),
length = c(5.01, 5.94, 6.59),
width = c(3.43, 2.77, 2.97)
)
# Assign metadata to convert dat to a Tagged_table
title(dat) <- "Iris excerpt"
footer(dat) <- "An example based on the iris dataset"
# Convert to Workbook or save als xlsx
wb <- as_workbook(dat)
save_xlsx(dat, tempfile(fileext = ".xlsx"), overwrite = TRUE)
}
Run the code above in your browser using DataLab