1

我试图强迫自己对一些我不想开发包的数据分析项目进行更多的单元测试。所以，我一直在玩testthatR 包。我有一个code文件夹，里面是一个src和一个test文件夹。在src文件夹中，我有add.R具有此功能的文件：

add <- function(x,y){
    x+y
}

在test文件夹中，我有test-add.R包含以下内容的文件：

library(testthat)

test_that("adding numbers", {
    expect_equal(add(2,3), 5)
    expect_equal(add(5,5), 10)
})

以下工作正常...

> source('code/src/add.R')
> test_file('code/test/test-add.R')

但我希望能够使用该auto_test功能，因为随着项目的发展source/test_file会变得乏味。但是当我尝试时，auto_test我得到了这个......

> auto_test('code/src', 'code/test')
Error in find_reporter(reporter) : attempt to apply non-function

我确定我错过了一些简单的东西，但是什么？

> sessionInfo()
R version 3.2.3 (2015-12-10)
Platform: x86_64-apple-darwin13.4.0 (64-bit)
Running under: OS X 10.11.1 (El Capitan)

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] testthat_0.11.0.9000 knitr_1.12.3        

loaded via a namespace (and not attached):
[1] lazyeval_0.1.10      R6_2.1.2             tools_3.2.3         
[4] withr_1.0.1          memoise_1.0.0        crayon_1.3.1        
[7] digest_0.6.9         devtools_1.10.0.9000
4

1 回答 1

0

看来这是testthat0.11.0.9000版本的问题。如果我从 github 安装此版本，我会收到与您相同的错误消息：

auto_test('code/src', 'code/test')
## Error in find_reporter(reporter) : attempt to apply non-function

但是对于可以从 CRAN 安装的 0.11.0 版本，您的示例运行良好：

auto_test('code/src', 'code/test')
## ..
## DONE
于 2016-03-09T20:36:58.497 回答