if (interactive()) {
# Create basic slides template in current directory
write_slides(filenames = "my_presentation")
# Create slides with example content in a specific directory
tmp <- tempdir()
write_slides(filenames = "tutorial_slides", path = tmp, example = TRUE)
# Create a slidedeck for a package in the inst directory
tmp <- tempdir()
write_slides(filenames = "tutorial_slides", path = 'inst', example = TRUE)
}
Run the code above in your browser using DataLab