R 是否有像 python 中那样的断言语句？

Question

检查某事是否为真的语句，如果不为真则打印给定的错误消息并退出

Answer 1

stopifnot()< /a>

您可能还对 Runit 和testthat 用于单元测试。

Answer 2

@Nick：

如果您编写一个具有描述性名称的函数来测试将在程序中引发错误的条件，您可以控制错误消息。下面是一个示例：

Less_Than_8 = function(x) return(x < 8)

for (i in 1:10)
{
  print(i)
  stopifnot(Less_Than_8(i))
}

这将打印数字 1 到 8，然后打印一条消息，显示

Error: Less_Than_8(i) is not TRUE

如果括号中的“i”被替换为未通过测试的值，那就太好了，但一分钱一分货。

如果您需要比这更奇特的东西，请研究 Runit 并按照 Harlan 的建议进行测试。

Answer 3

这可以通过 stop 命令来实现。该命令将停止函数的执行并打印错误消息。例如，我们可以测试变量 something 是否为 FALSE：

if(something == FALSE){
   stop("error message to print")   
}

同样，warning 命令会打印警告（但继续执行代码） 。

if(something == FALSE){
   warning("error message to print")   
}

这些都是由基础 R 提供的，不需要任何包来运行或包含在编写您自己的函数中。我更喜欢这种方法来编写依赖较少的代码，并且这种语法广泛用于包开发中。然而，带有 assert_that 函数的“assertthat”包支持类似的功能，该函数最近作为 Hadley 的“tidyverse”的一部分发布。

Answer 4

testit-package

testit-package 提供了 assert- 函数作为简单的解决方案
(https://github.com/yihui/testit)

示例：

assert('one equals one', 1==1)
assert('seq and : produce equal sequences', seq(1L, 10L) == 1L:10L)
assert('seq and : produce identical sequences', identical(seq(1L, 10L), 1L:10L))

# multiple tests
T=FALSE; F=TRUE
assert('T is bad for TRUE, and so is F for FALSE', T!=TRUE, F!=FALSE)

# a mixture of tests
assert("Let's pray all of them will pass", 1==1, 1!=2, letters[4]=='d', rev(rev(letters))==letters)

来源：https://github.com/yihui/testit/blob/master/R/testit.R

Answer 5

您可以使用 checkmate 包来实现这一点。从他们的一个例子来看：

require(checkmate)

fact <- function(n, method = "stirling") {
  assertCount(n)
  assertChoice(method, c("stirling", "factorial"))

  if (method == "factorial")
    factorial(n)
  else
    sqrt(2 * pi * n) * (n / exp(1))^n
}

fact(2, method = 'blub')

Answer 6

之前对这个问题的回答已经过时了，所以我想我应该添加一个使用现代包的答案。 R 中的断言程序包此处有很好的描述此处记录。 assertr 包使用两个主要函数来验证数据集：verify 使用传递给它的数据帧的范围来计算布尔表达式，如果满足以下条件，将抛出错误并将错误记录在数据集的属性中：该表达式返回FALSE。如果发现错误，您可以选择继续处理数据集，并将错误视为警告，或者您可以指示 R 终止处理。这对于验证数据帧结构和内容很有用。例如，使用 cars 数据集，人们可能想要验证它是否包含 32 行数据。可以通过以下方式执行此操作：

library(assertr)
cars %>% verify(nrow(.)==32, error_fun = error_append) %>% 
  attributes() %>% 
  pluck("assertr_errors")

assertr_errors 属性将包含未通过验证检查的验证错误列表，因此上面将生成以下内容：

[[1]]
verification [nrow(.) == 32] failed! (1 failure)

    verb redux_fn     predicate column index value
1 verify       NA nrow(.) == 32     NA     1    NA

您还可以使用 添加其他验证检查>assert 函数如下面的链接所述。例如，继续上面的示例，我们可以验证变量速度中的观察值是否超过 23：

#Function that returns false if rule fails
is_greater_than_23<-function(x){
  x <=23
}

cars %>% assert(is_greater_than_23, speed, error_fun = error_append) %>% 
  attributes() %>% 
  pluck("assertr_errors")

其返回：

[[1]]
Column 'speed' violates assertion 'is_greater_than_23' 5 times
    verb redux_fn          predicate column index value
1 assert       NA is_greater_than_23  speed    46    24
2 assert       NA is_greater_than_23  speed    47    24
3 assert       NA is_greater_than_23  speed    48    24
4 assert       NA is_greater_than_23  speed    49    24
5 assert       NA is_greater_than_23  speed    50    25

值得注意的是，在上面的示例中，我将 error_append 分配给了 < verify 和 assert 函数调用的 code>error_fun 参数。这允许 R 在检查失败时继续处理数据，并将检测到的错误记录到 assertr_errors 属性中。一旦您收集了此属性中的错误，您就可以执行各种检查和其他验证步骤，再次在下面的链接中记录。如果您希望程序在遇到错误时停止处理，只需将 error_append 更改为 error_report，它“以“整洁”的方式打印有关错误的所有可用信息。 data.frame（包括所用谓词的名称、有问题的值等信息）并停止执行。”