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)
Enchufa2/simmer documentation built on July 13, 2024, 6:05 a.m.