if (requireNamespace("flextable", quietly = TRUE)) {
# Create a flextable
ft <- flextable::as_flextable(table(mtcars[, c("am", "cyl")]))
# Create a workbook
wb <- openxlsx2::wb_workbook()$add_worksheet("mtcars")
# Add flextable to workbook
wb <- wb_add_flextable(wb, "mtcars", ft)
# Workbook can now be saved wb$save(),
# opened wb$open() - or removed
rm(wb)
}
Run the code above in your browser using DataLab