# NOT RUN {
test_dir <- file.path(tempdir(), "data")
old_wd <- getwd()
dir.create(test_dir)
setwd(test_dir)
worcs:::write_worcsfile(".worcs")
closed_data(iris[1:10, ], codebook = NULL)
setwd(old_wd)
unlink(test_dir, recursive = TRUE)
# }
Run the code above in your browser using DataLab