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))
})

Try the musicatk package in your browser

Any scripts or data that you put into this service are public.

musicatk documentation built on Nov. 8, 2020, 5:16 p.m.