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)
r-simmer/simmer documentation built on Nov. 29, 2023, 5:43 a.m.