tests/testthat/examples/interactive/src/count_param/script.R

end <- Sys.time() + time
while (Sys.time() < end) {
  cat(sprintf("%s waiting...\n", runif(1)))
  Sys.sleep(poll)
}

png("mygraph.png")
par(mar = c(15, 4, .5, .5)) # nolint
barplot(setNames(dat$number, dat$name), las = 2)
dev.off()
vimc/orderly.server documentation built on July 27, 2023, 5:07 p.m.