working_dir/__stress.R

library(simmer)
library(testthat)

wd <- getwd()
setwd("tests")
for (i in 1:100000) {
  message(i)
  capture.output(test_check("simmer")) %>% invisible
}
setwd(wd)
Bart6114/simmer documentation built on Dec. 5, 2023, 5:06 a.m.