# NOT RUN {
set.seed(1L)
input <- tempfile()
writeLines("", input)
download_rmd_button(input)
# Requires zip command
if (interactive()) {
input <- tempdir()
download_rmd_button(input, embed = xfun::embed_dir)
}
# }
Run the code above in your browser using DataLab