tests/testthat/test-QC1b.R

In rivm-syso/KRWQCprotocol: Standardised test for Dutch Groundwater Monitoring Networks

test_that("QC1b", {

              data(parameter)
              data(veld)
              data(metingen)

              x <- QC1b(d_vel = veld, d_parameter = parameter, d_metingen = metingen, verbose = FALSE)
              x_attr <- attr(x, "qcout")

              ids <- x_attr[["QC1b"]][["oordeel"]][["verdacht"]]
              x_attr[["QC1b"]][["rapportage"]]
              qcids <- metingen$qcid
              v1 <- intersect(ids, qcids)
              expect_true(length(v1) > 0)
              expect_false(any(v1 != ids))

              expect_true(nrow(metingen) == nrow(x))


})