# NOT RUN {
library(rmarkdown)
library(knitr)
filename <- tempfile("codebook", fileext = ".Rmd")
make_codebook(iris, filename = filename, csv_file = NULL)
unlink(c(
".worcs",
filename,
gsub("\\.Rmd", "\\.md", filename),
gsub("\\.Rmd", "\\.html", filename),
gsub("\\.Rmd", "_files", filename)
), recursive = TRUE)
# }
Run the code above in your browser using DataLab