tests/testthat/test-classes_methods.R

In chrismainey/FunnelPlotR: Funnel Plots for Comparing Institutional Performance

test_that("`test the classes return stuff", {
  a<-funnel_plot(
      data.frame(num=c(100, 150,180,80,120, 225)
                 , denom=c(108, 112, 165,95,100, 220)
                 , group = factor(c("a","b","c", "d","e","f"))
      ), num, denom, group
  )
  
  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)
  
  
})