tests/testthat/test-show_sedimentmap.R

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

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

test_that("Checking show_sedimentmap class, no TEL/PEL", {
  result <- expect_warning(show_sedimentmap(sedimentdata, param = 'Selenium', yrrng = 2023))
  expect_is(result, 'leaflet')
})