tests/testthat/test-get_test_scores.R

set.seed(2021)
library(dplyr, warn.conflicts = FALSE)
temp <- get_test_scores()

test_that("get_test_scores works", {
  expect_equal(length(unique(temp$id)), 1000)
})

Try the farr package in your browser

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

farr documentation built on May 29, 2024, 6:41 a.m.