tests/testthat/test-periphyton.R

In poissonconsulting/curtisquadata: Curtis and Qua Creeks Productivity Study Data

test_that("check_data", {
  expect_null(chk::check_data(
    periphyton,
    values = list(
      BioSite = factor(""),
      DatePeriphyton = as.Date(c("2015-01-01", "2018-12-31")),
      Series = 1:2,
      SampleID = c("", NA),
      Chla = c(0, 20)
    ),
    order = TRUE,
    exclusive = TRUE,
    nrow = TRUE,
    key = c("BioSite", "DatePeriphyton", "Series")
  ))
  chk::check_key(periphyton, "SampleID", na_distinct = TRUE)
})