Different classes between versions?

jumpingrivers · Mar 21, 2017 · bf4fa0c · bf4fa0c
1 parent ee70e70
commit bf4fa0c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-giniChart.R b/tests/testthat/test-giniChart.R
@@ -4,14 +4,14 @@ test_that("giniChart correctly produce a chart, numeric outcome", {
     rm(list = ls())
     sampledata <- data.frame(val = rnorm(100), outcome = rbinom(100, 1, 0.8))
     check1 <- ggplot_build(giniChart(sampledata$val, sampledata$outcome))
-    expect_that(check1, is_a("ggplot_built"))
+    expect(inherits(check1,c("ggplot_built","list")),"Not of expected class")
 })
 
 test_that("giniChart correctly produce a chart, factor outcome", {
     rm(list = ls())
     sampledata <- data.frame(val = rnorm(100), outcome = factor(rbinom(100, 1, 0.8)))
     check1 <- ggplot_build(giniChart(sampledata$val, sampledata$outcome))
-    expect_that(check1, is_a("ggplot_built"))
+    expect(inherits(check1,c("ggplot_built","list")),"Not of expected class")
 })
 
 test_that("giniChart errors given incorrect input to pred", {