tests/testthat/test-data-utils.R

test_that("pull_unique works", {
  df <- data.frame(let = rep(letters, 2), num = rep(c(1:26), 2))
  expect_equal(pull_unique(df, 1), letters)
})
jimbrig/lossrx documentation built on Dec. 20, 2024, 3:46 a.m.