.old_wd <- setwd(tempdir())
cwd_fnames <- as_fnames(c("file1.txt", "file2.txt"))
write_fnames(cwd_fnames, "file_with_filenames.txt")
cwd_fnames_2 <- read_fnames("file_with_filenames.txt")
setwd(.old_wd)
Run the code above in your browser using DataLab