# Initial setup
.old_wd <- setwd(tempdir())
# Save an `associations` object, e.g. `associations_ex01`, to xlsx.
write_xlsx(associations_ex01, "associations.xlsx")
# Cleanup
unlink("associations.xlsx")
setwd(.old_wd)
Run the code above in your browser using DataLab