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 Feb. 16, 2023, 8:11 p.m.