tests/testthat/tests_check_bagIE.R

In USGS-R/sedReview: A package and shiny GUI for review of discrete water-quality sediment records and box coefficient exploration of data stored in the USGS NWIS system

context("check_bagIE")

test_that("Return values check", {
  data("exampleData", package = "sedReview")
  
  # check_bagIEOut <- check_bagIE(exampleData)
  # saveRDS(check_bagIEOut, file = "tests/testthat/data/check_bagIEOut.rds")
  # check_bagIEOut <- readRDS("tests/testthat/data/check_bagIEOut.rds")
  
  check_bagIEOut <- readRDS("data/check_bagIEOut.rds")
  check_bagIEOutTest <- check_bagIE(exampleData)
  expect_equal(check_bagIEOut, check_bagIEOutTest)
})