tests/backup.R

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")

Try the startup package in your browser

Any scripts or data that you put into this service are public.

startup documentation built on April 3, 2023, 5:48 p.m.