smoketests/snapshot.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()
ymd526442121/Rproject_shiny documentation built on May 4, 2019, 5:31 p.m.