tests/testthat/test-plots.R

In emphazis-org/emphazis: Emphazis - Zebrafish tracking made simple

# testthat::test_that("Plots", {
#
#   plot_test <-
#   testthat::expect_s3_class(plot_test, "ggplot")
# })
#
# testthat::test_that("Cumulative sum plot", {
#   plot_test <- plot_cum_sum()
#   testthat::expect_s3_class(plot_test, "ggplot")
# })
#
# testthat::test_that("Moving average plot", {
#   plot_test <- plot_cum_sum()
#   testthat::expect_s3_class(plot_test, "ggplot")
# })