The read_ods function works fine, however the write_ods function does not work.
MWE:

setwd(correct_path)
# Test to see if read_ods finds the correct path and reads correctly:
read_ods("test_read.ods")  # does work
df <- data.frame(n = c(1,2,3), sqr = c(1,4,9))
write_ods(df, "test_write.ods")  # does run (no error) but no .ods file is created

I've looked at the R code for write_ods to see how it works, and indeed files have been created in the AppData Temp folder, with names: content.xml, meta.xml, mimetype, styles.xml, and a META-INF folder containing manifest.xml; but that's all, no .ods file is created at the working directory.
I have tested compressing manually the aforementioned files into a .zip and changing the extension from .zip to .ods, and it seems to work fine. So it must be a problem when zipping and/or creating the file in the directory.