tests/testthat/test-classes_methods.R

In FunnelPlotR: Funnel Plots for Comparing Institutional Performance

test_that("`test the classes return stuff", {
  a<-funnel_plot(c(100, 150,180,80,120, 225), c(108, 112, 165,95,100, 220),
                 factor(c("a","b","c", "d","e","f"))
  )
  
  expect_s3_class(a, "funnelplot") 
  expect_equal(round(phi.funnelplot(a),6), 2.948033)
  expect_type(a, "list")
  expect_type(a[[1]], "list")
  expect_s3_class(a[[2]], "data.frame")
  expect_s3_class(a[[3]], "data.frame")
  expect_length(a[[3]]$group,6)
  expect_length(a[[3]],22)
  
  
})