is(p) (`actual`) not equal to "gg" (`expected`).

`actual`:   "ggplot2::ggplot"
`expected`: "gg"

test_that("classPlot returns a ggplot object", {
df <- data.frame(Class = sample(paste0('C', seq(13)), 25, replace=TRUE),
Item = sample(paste0('I', seq(21)), 25, replace=TRUE),
test_that("correlationPlot returns a ggplot object", {
mat <- matrix(runif(100, -1, 1), nrow=10)
test_that("densityPlot returns a ggplot object", {
expect_equal(is(hullPlot(pointsDF, 'Hull plot', 7, 1.5)), 'gg')
expect_error(hullPlot(pointsDF, 'Hull plot', 1, 2))
expect_error(hullPlot(pointsDF, 'Hull plot', 4, 2))
expect_equal(is(hullPlot(pointsDF, 'Hull plot', 4.1, 2)), 'gg')
expect_error(hullPlot(pointsDF, 'Hull plot', 15.5, 1.5))
expect_equal(is(hullPlot(pointsDF, 'Hull plot', 15.4, 1.5)), 'gg')
labelDF <- pointsDF[c('P1', 'P4', 'P9'), ]
expect_equal(is(hullPlot(pointsDF, 'Hull plot', 7, 1.5, labelDF=labelDF)),
test_that("networkPlot returns a ggraph object", {
test_that("radialPlot returns a gg object", {
degreesDF <- data.frame(Protein = paste0('P', seq(20)),
test_that("rankPlot returns a gg object", {
df <- do.call(cbind, lapply(seq(30), function(i) sample(10, 10)))
test_that("riverPlot returns a gg object", {
test_that("tilePlot returns a gg object", {
mat <- matrix(round(runif(100, 0, 1), 2), nrow=10)
expect_identical(comps, c(rep(1, 5), rep(2, 4), 3, 3))
df <- data.frame(gene1 = c('A', 'B', 'C', 'A'),
expectedHull <- data.frame(x = c(10, 8, 1, 1, 3, 8),
pointsDF <- data.frame(x = c(1, 2, 4, 7, 10,
hullIndices <- grDevices::chull(pointsDF[, 1], pointsDF[, 2])
expectedHullSegments <- data.frame(x = c(16, 1, 7, 10, 15),
expect_true(isPointOnSeg(2, 3, 1, 2, 3, 4))
expect_false(isPointOnSeg(2, 3, 1, 2, 3, 8))
expect_false(isPointOnSeg(4, 5, 1, 2, 3, 4))

"correlationPlot returns a ggplot object"

is(hullPlot(pointsDF, "Hull plot", 7, 1.5)) (`actual`) not equal to "gg" (`expected`).

`actual`:   "ggplot2::ggplot"
`expected`: "gg"

is(hullPlot(pointsDF, "Hull plot", 4.1, 2)) (`actual`) not equal to "gg" (`expected`).

`actual`:   "ggplot2::ggplot"
`expected`: "gg"