1

我想对一个包运行测试testthat并计算代码覆盖率covr。此外，结果testthat应以 JUnit XML 格式保存，结果covr应以 Cobertura 格式保存。

以下代码可以解决问题（何时getwd()是包的根）：

options("testthat.output_file" = "test-results.xml")
devtools::test(reporter = testthat::JunitReporter$new())

cov <- covr::package_coverage()
covr::to_cobertura(cov, "coverage.xml")

但是，测试会执行两次。一次devtools::test和一次covr::package_coverage。

我的理解是covr::package_coverage执行测试，但不会产生test-results.xml.

正如标题所暗示的，我想同时获得这两个test-results.xml测试coverage.xml套件的执行。

4

1 回答 1

1

来自 covr 参考手册（https://cran.r-project.org/web/packages/covr/covr.pdf）

此函数用于tools::testInstalledPackage()运行代码，如果您想以另一种方式测试您的包，您可以设置type = "none"并将代码作为字符向量运行到code参数

covr::package_coverage(
    type = "none",
    code = "testthat::test_package(
'myPackage',
reporter = testthat::JunitReporter$new(file = 'test-results.xml')
)")
于 2020-11-09T14:02:57.620 回答