# \donttest{
if (requireNamespace("openxlsx2", quietly = TRUE)) {
# Export data with automatic label reference sheet
tmp <- tempfile(fileext = ".xlsx")
write_xlsx(survey_data, tmp)
# Export a codebook (reproduces HTML layout in Excel)
tmp_cb <- tempfile(fileext = ".xlsx")
codebook(survey_data) |> write_xlsx(tmp_cb)
# Export frequency tables
tmp_freq <- tempfile(fileext = ".xlsx")
frequency(survey_data, gender) |> write_xlsx(tmp_freq)
# Multi-sheet export (mixed types: data frames, frequencies, codebooks)
tmp_multi <- tempfile(fileext = ".xlsx")
write_xlsx(
list(
"Frequencies" = frequency(survey_data, gender, life_satisfaction),
"Codebook" = codebook(survey_data),
"Data" = survey_data
),
tmp_multi
)
unlink(c(tmp, tmp_cb, tmp_freq, tmp_multi))
}
# }
# \donttest{
if (requireNamespace("openxlsx2", quietly = TRUE)) {
# Single variable
tmp <- tempfile(fileext = ".xlsx")
frequency(survey_data, gender) |> write_xlsx(tmp)
# Multiple variables on one sheet
tmp2 <- tempfile(fileext = ".xlsx")
frequency(survey_data, gender, life_satisfaction, region) |>
write_xlsx(tmp2)
unlink(c(tmp, tmp2))
}
# }
Run the code above in your browser using DataLab