我可以从roxygen2示例中自动生成测试单元测试吗？

我正在研究R的PKNCA包.在开发测试代码时,一些测试也是很好的例子.我想把它们作为两者(测试和示例).有没有办法可以在roxygen2文档中嵌入一些内容,这些内容也会被复制到测试中？

我在想的是文档,如:

#' @exampleTest
#' set.seed(5)
#' rnorm(1) ## -0.8409

这会产生如下测试:

expect_equal({set.seed(5)
              rnorm(1)}, -0.8409, tol=1e-4)

(tol来自这个事实,它是一个数字和示例中显示的位数.)