tests/testthat/test-show_tbbimatrix.R

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

test_that("Checking show_tbbimatrix class", {

  result <- show_tbbimatrix(tbbiscr)
  expect_is(result, 'ggplot')

})

test_that("Checking show_tbbimatrix sanity checks", {

  expect_error(show_tbbimatrix(NULL, yrrng = 1998))
  expect_error(show_tbbimatrix(NULL, yrrng = c(2009, 1997)))

})

test_that("Checking show_tbbimatrix plotly class", {

  result <- show_tbbimatrix(tbbiscr, plotly = T)
  expect_is(result, 'plotly')

})