tests/testthat/test-PCAplot.R

In TalhoukLab/biostatUtil: Utility Functions Used in Biostatistics Projects

test_that("PCAplot works", {
  expect_error(PCAplot(mtcars$cyl, mtcars), NA)
})

test_that("One plot can still use multiplot", {
  p <- ggplot2::ggplot(mtcars, aes(wt, mpg)) +
    ggplot2::geom_point()
  expect_error(multiplot(p), NA)
})