mirror of
https://github.com/rstudio/shiny.git
synced 2026-01-09 23:18:10 -05:00
14 lines
245 B
R
14 lines
245 B
R
source("functions.R")
|
|
|
|
for (dir in appdirs()) {
|
|
snapshotPath <- file.path(dir, "R.out.save")
|
|
if (upToDate(dir, "R.out.save"))
|
|
next
|
|
|
|
cat("Snapshotting", dir, "\n")
|
|
res <- executeApp(dir)
|
|
writeLines(res, snapshotPath)
|
|
}
|
|
|
|
invisible()
|