tests/testthat/test-plot2d.R

In eRTG3D: Empirically Informed Random Trajectory Generation in 3-D

test_that("plot2d works", {
  grDevices::pdf(NULL)
  expect_is(plot2d(origTrack = niclas), c("gg", "ggplot"))
  expect_is(plot2d(origTrack = niclas, simTrack = niclas, DEM = dem, titleText = "Test"), c("gg", "ggplot"))
  expect_is(plot2d(origTrack = niclas, simTrack = niclas, BG = dem, titleText = "Test"), c("gg", "ggplot"))
})