tests/testthat/test-data.R

context("wq_algorithms")
test_that("wq_algortihms are correct", {
  # data is intact
  expect_equal(unique(wq_algorithms$type), c("chlorophyll", "phycocyanin", "turbidity"))
  expect_equal(dim(wq_algorithms), c(161, 5))
})
RAJohansen/waterquality documentation built on March 29, 2024, 5:36 p.m.