if (interactive()) {
get_template() # prompts user to select an example
}
tmpdir <- file.path(tempdir(), "wastewater_test")
get_template(template_name = "shiny_wastewater", install_to = tmpdir)
# Cleanup
unlink(tmpdir, recursive = TRUE)
Run the code above in your browser using DataLab