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