R包中打印函数的测试覆盖率

根据@alistaire的建议,我使用了 capture.output 编写测试:

test_that("print.tabyl prints without row numbers", {
  expect_equal(
    mtcars %>% tabyl(am, cyl) %>% capture.output(),
    c(" am 4 6  8", "  0 3 4 12", "  1 8 3  2")
  )
})

这捕捉到了 row.names 缺失;此结果不同于 capture.output(print.data.frame(mtcars %>% tabyl(am, cyl))) 仍然有行号。

使用 俘虏输出 这两种方法都测试了功能,并计算了codecov的覆盖率。io的跟踪。