inst/tinytest/test_get_unique_string.R

if (interactive()) {
  pkgload::load_all()
  library("tinytest")
}


n <- 1000
r <- replicate(n, get_unique_string())
expect_identical(length(r), length(unique(r)))

Try the fritools2 package in your browser

Any scripts or data that you put into this service are public.

fritools2 documentation built on July 9, 2023, 7:07 p.m.