tests/testthat/tests_plot_sedTS.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('plot_sedTS')

test_that("Return values check", {
  data('exampleData', package = "sedReview")

  # plot_sedTSOut <- plot_sedTS(exampleData, siteSelect = "05586300")
  # saveRDS(plot_sedTSOut, "tests/testthat/data/plot_sedTSOut.rds")
  
  plot_sedTSOut <- readRDS("data/plot_sedTSOut.rds")
  plot_sedTSOutTest <- plot_sedTS(exampleData, siteSelect = "05586300")
  expect_equal(plot_sedTSOut, plot_sedTSOutTest)
})