tests/testthat/test-plotting.R

context("Test Plotting Functions")
library("musicatk")

test_that(desc = "Testing Exposures Plotting", {
  data(res)
  p <- plot_exposures(res, plot_type = "bar")
  expect_true(ggplot2::is.ggplot(p))
  p <- plot_exposures(res, plot_type = "violin")
  expect_true(ggplot2::is.ggplot(p))
  p <- plot_exposures(res, plot_type = "box")
  expect_true(ggplot2::is.ggplot(p))
})
campbio/musicatk documentation built on May 9, 2024, 2:21 a.m.