Question

我正在研究R的PKNCA软件包。在开发测试代码时，一些测试也是很好的例子。我想把它们作为两者（测试和示例）。有没有办法可以在roxygen2文档中嵌入一些会被复制到测试中的东西？

我正在考虑的是文档：

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

这将产生如下测试：

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

（tol来自这个事实，它是一个数字和示例中显示的位数。）

Answer 1

按照the check chapter of Hadley Wickham's book on packages中的说明使用likeCount。运行R CMD CHECK时会测试函数示例。这不是测试的一部分，而是标准R包检查系统的一部分。

Answer 2

有一种方法，但它并不像你想的那样顺畅。您必须在testthat块内调用@examples个功能。这是一个示例函数：

#' @examples
#'   testStrings <- c("1234567890",
#'                    "123 456 7890")
#'
#'   testthat::expect_equal(extractPhoneNumbers(testStrings), "0123")
extractPhoneNumbers <- function(inputStr) {
    # check input:
    if (!is.character(inputStr)) {
        stop("'inputStr' must be a (vector of) string(s)!")
    }

    # imports
    `%>%` <- stringr::`%>%`
    replace_all <- stringr::str_replace_all
    extract_all <- stringr::str_extract_all

    # intermediary regex's
    visualDelimitersRegex <- "[()+\\-_. ]"
    phoneNumberRegex <- "[:digit:]{10}"

    inputStr %>%
    replace_all(pattern = visualDelimitersRegex, replacement = "") %>%
    extract_all(pattern = phoneNumberRegex)
}

当您运行devtools::run_examples()或devtools::check时，由于调用testthat::expect_equal()会引发错误，两者都会抛出错误。

devtools::check的示例输出看起来像

*** SNIP ***
* checking for unstated dependencies in examples ... OK
* checking examples ... ERROR
Running examples in ‘demoPkg-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: extractPhoneNumbers
> ### Title: Extract Phone Numbers
> ### Aliases: extractPhoneNumbers
> 
> ### ** Examples
> 
>   testStrings <- c("1234567890",
+                    "123 456 7890")
> 
>   testthat::expect_equal(extractPhoneNumbers(testStrings), "0123")
Error: extractPhoneNumbers(testStrings) not equal to "0123"
Modes: list, character
Length mismatch: comparison on first 1 components
Component 1: 1 string mismatch
Execution halted
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
  Running ‘testthat.R’
 OK
* checking PDF version of manual ... OK
* DONE

Status: 1 ERROR

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

2 个答案: