tests/testthat/tests_find_outliers.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("find_outliers")

test_that("Return values check", {
  data("exampleData2", package = "sedReview")
  
  # find_outliersOut <- find_outliers(exampleData2, site_no = '09163500')
  # saveRDS(find_outliersOut,"tests/testthat/data/find_outliersOut.rds")
  
  find_outliersOut <- readRDS("data/find_outliersOut.rds")
  find_outliersOutTest <- find_outliers(exampleData2, site_no = '09163500')
  expect_equal(find_outliersOut, find_outliersOutTest)
})