tests/testthat/test-aggregate_fun.R

In FunnelPlotR: Funnel Plots for Comparing Institutional Performance

test_that("`aggreagate_fun` works with input and returns expected list", {
  b<-aggregate_func(data.frame(numerator=c(100, 150,180,89,120, 225),
                             denominator=c(102, 135, 165,95,100, 220),
                             group=factor(c("a","a","a", "b","b","c"))))
  expect_s3_class(b, "data.frame")
  expect_length(b, 4)
  expect_length(b$group, 3)
  expect_equal(round(b$rr,6), c(1.069652, 1.071795, 1.022727))

})