tests/testthat/helper-functions.R

slow_function <- function() {
  n <- 1e3
  x <- data.frame(x = sample.int(n), y = sample.int(n))
  for (i in seq_len(n)) {
    x[i, ] <- x[i, ] + 1
  }
  x
}
wlandau/proffer documentation built on June 10, 2025, 6:05 p.m.