tests/testthat/test-randompair.R

testthat::test_that("runs correctly", {
  players <- unique(round(runif(n=100, min=1, max=5000), 0))
  pw <- quickPWCR::randompair(players = players, k = 30)
  
  testthat::expect_type(pw, "list")
})

Try the quickPWCR package in your browser

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

quickPWCR documentation built on May 29, 2024, 12:29 p.m.