tests/testthat/test-show_transectmatrix.R

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

test_that("Checking show_transectmatrix class", {

  result <- show_transectmatrix(transectocc, rev = TRUE)
  expect_is(result, 'ggplot')

})

test_that("Checking show_transectmatrix class, neutral T", {

  result <- show_transectmatrix(transectocc, neutral = T)
  expect_is(result, 'ggplot')

})

test_that("Checking show_transectmatrix sanity checks", {

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

})

test_that("Checking show_transectmatrix plotly class", {

  result <- show_transectmatrix(transectocc, plotly = T)
  expect_is(result, 'plotly')

})