tests/testthat/test-show_sedimentpelave.R

In tbep-tech/tbeptools: Data and Indicators for the Tampa Bay Estuary Program

test_that("Checking show_sedimentpelave class", {
  result <- show_sedimentpelave(sedimentdata, yrrng = 2023)
  expect_is(result, 'ggplot')
})

test_that("Checking show_sedimentpelave plotly class", {
  result <- show_sedimentpelave(sedimentdata, yrrng = 2023, plotly = T)
  expect_is(result, 'plotly')
})