# NOT RUN {
path <- tempdir()
wd <- setwd(path)
new_challenge()
outdir = tempdir()
if (rmarkdown::pandoc_available('1.12.3')) {
publish(output_dir = outdir, output_options = list(self_contained = FALSE))
}
unlink(outdir)
setwd(wd)
unlink(path)
# }
Run the code above in your browser using DataLab