Persist a corpus to disk as RDS and reload it.
Arguments
- corpus
An
sm_corpusobject.- path
File path for saving.
- compress
Compression type passed to
saveRDS().
Examples
corpus <- sm_example_corpus(n_works = 10)
path <- tempfile(fileext = ".rds")
sm_save_corpus(corpus, path)
#> ✔ Corpus saved to /tmp/RtmpIQMgiF/file237011f4394.rds
loaded <- sm_load_corpus(path)
nrow(loaded$works)
#> [1] 10