tests/testthat/test-sample_rows.R

In mike-decarlo/caseling: Streamlined Solutions for Sampling and Subsetting in R

context("test-sample_rows")
library(caser)
x <- NULL
test_that(
  "error if NULL x argument or NULL data.frame object",
  {
    expect_error(sample_rows(.data = x, n = 50))
    expect_error(sample_rows(.data = NULL, n = 50))
  })
x <- data.frame("X" = rnorm(100, 0, 1), "Y" = runif(100, 0, 1))
test_that(
  "errors when sample size exceeds population, no replacement",
  {
    expect_error(sample_rows(.data = x, n = 200, replace = FALSE))
  })
test_that(
  "Seed control works",
  {
    expect_silent(sample_rows(.data = x, n = 50, .seed = 1, replace = FALSE))
    expect_silent(sample_rows(.data = x, n = 50, replace = FALSE))
  })
test_that(
  "produces sample of correct size",
  {
    expect_equal(nrow(sample_rows(.data = x, n = 2, replace = TRUE)), 2)
    expect_equal(ncol(sample_rows(.data = x, n = 2, replace = TRUE)), 2)
  })