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))
})

Try the waterquality package in your browser

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

waterquality documentation built on Aug. 8, 2023, 1:07 a.m.