message("*** backup() ...")
pathname <- tempfile()
cat("Hello", file = pathname)
stopifnot(file.exists(pathname))
pathname_backup <- startup:::backup(pathname)
print(pathname_backup)
stopifnot(file.exists(pathname), file.exists(pathname_backup))
message("*** backup() ... DONE")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.