tests/testthat/test-show_sedimentave.R

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

test_that("Checking show_sedimentave plotly class", {
  result <- show_sedimentave(sedimentdata, param = 'Arsenic', yrrng = 2023, plotly = T)
  expect_is(result, 'plotly')
})
tbep-tech/tbeptools documentation built on April 13, 2025, 4:50 p.m.