r - devtools::test() 并行？

Question

我有一个使用 testthat 的测试套件包含 R/tests 中的几个文件我想并行测试它们以加快测试速度。 devtools中是否有任何实现的方法？ , testthat ，或为此目的在其他地方？
我尝试使用 future“手动”执行此操作包，但是 stdout 的文本渲染不可读:

# Get a vector of test files without "test-" and ".R"
test_files = list.files("tests/testthat", "test-")
test_filters = stringr::str_replace_all(test_files, c("test-|\\.R"), "")

# Run test for each file in parallel
future::plan(future::multiprocess)
future.apply::future_mapply(devtools::test, filter = test_filters)

Answer 1

一位 RUnit 长期用户的警告谁最近切换到 tinytest ，您要查找的功能存在于 tinytest 中已经。我认为有人已经或可能为 testthat 构建了一个并行测试运行器。在某些时候，但在“此时此地”中，我们确实有 tinytest具有非常好的行为、良好的文档和从 RUnit 转换的线索或 testthat .
我最喜欢的功能 tinytest是包中默认安装的测试，缺少其他依赖项和并行运行器。
另一个警告即将到来:我更喜欢这种方式的命令行而不是 R 提示，因为可能总是存在某种形式的副作用。所以我添加了一个小测试运行器 wrappre tt.r至 littler :

edd@rob:~$ tt.r -h
Usage: tt.r [-h] [-x] [-a] [-b] [-d] [-f] [-n NCPUS] [-p] [-s] [-z] [ARG...]

-a --all            use test_all mode [default: FALSE]
-b --build          use build-install-test mode [default: FALSE]
-d --directory      use directory mode [default: FALSE]
-f --file           use file mode [default: FALSE]
-n --ncpus NCPUS    use 'ncpus' in parallel [default: getOption]
-p --package        use package mode [default: FALSE]
-s --silent         use silent and do not print result [default: FALSE]
-z --effects        suppress side effects [default: FALSE]
-h --help           show this help text
-x --usage          show help and short example usage 
edd@rob:~$ 

(我应该在这里补充一点，由于 docopt，编写这样的包装器很容易。)
然后我们简单地做

edd@rob:~$ tt.r -n 4 -p anytime
starting worker pid=642068 on localhost:11092 at 17:11:25.636
starting worker pid=642067 on localhost:11092 at 17:11:25.654
starting worker pid=642065 on localhost:11092 at 17:11:25.687
starting worker pid=642066 on localhost:11092 at 17:11:25.689
Running test_gh_issue_12.R............    2 tests OK 
Running test_gh_issue_56.R............    7 tests OK 
Running test_gh_issue_33.R............    2 tests OK 

Running test_all_formats.R............    0 tests    ris or Windows or Release
Running test_assertions.R.............    2 tests OK 
Running test_calc_unique.R............    4 tests OK 
Running test_gh_issue_100.R...........    2 tests OK 
Running test_simple.R.................   34 tests OK 
Running test_utilities.R..............    2 tests OK 
Running test_bulk.R................... 2328 tests OK 
[1] "All ok, 2383 results"
edd@rob:~$ 

你会看到有一点点输出被吞没了。
您当然也可以从 R 手动运行它:

R> tinytest::test_package("anytime", ncpu=4)
starting worker pid=651865 on localhost:11762 at 17:14:45.970
starting worker pid=651864 on localhost:11762 at 17:14:45.980
starting worker pid=651863 on localhost:11762 at 17:14:45.980
starting worker pid=651862 on localhost:11762 at 17:14:45.984
Running test_gh_issue_12.R............    2 tests
 Exited 'test_all_formats.R' at line 24. Skipping Solaris or Windows or ReleaseOK 
Running test_all_formats.R............    0 tests    
Running test_gh_issue_56.R............    7 tests OK 
Running test_assertions.R.............    2 tests OK 
Running test_gh_issue_33.R............    2 tests OK 
Running test_calc_unique.R............    4 tests OK 
Running test_gh_issue_100.R...........    2 tests OK 
Running test_simple.R.................   34 tests OK 
Running test_utilities.R..............    2 tests OK 
Running test_bulk.R................... 2328 tests OK 
[1] "All ok, 2383 results"
R> 

还有其他用于文件、目录、构建+安装+测试循环等的运行器。嘿，如果在这一切之后你仍然不喜欢它，马克会给你退款:)
PS 这里和例如在 Rcpp我有一些测试“变暗”，因为它们会产生大量的 cmdline 噪音，因此只有在设置了选择加入 var 时才会在包测试中发生。因此，上面的少数“零测试运行”。那是我的设置而不是 tinytest问题。