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
}
r-prof/proffer documentation built on Nov. 18, 2024, 7:27 p.m.