4

我正在使用 R 的 assertthat 包，并且希望（暂时）在断言失败时输出警告而不是错误。使用 assertthat 包最简单的方法是什么？

我意识到想要警告而不是错误有点违背断言的用途。从长远来看，我们确实希望在断言失败时输出错误。在短期内，我们仍然希望代码即使在输入错误的情况下也能正常工作，因为输入错误的输出现在仍然“足够好”。

一个简单的例子：假设我有一个将 x 作为输入并输出 x+5 的函数。如果 x!=3，我想输出警告。由于我们最终将使用 assert_that，因此如果我们可以使用 assertthat 包来发出警告，那就太好了。

从长远来看，我们将使用这个：

> x <- 3
> fn <- function(x) {assert_that(x==3); return(x+5)}
> fn(3)
[1] 8
> fn(4)
 Error: x not equal to 3

在短期内，这是我迄今为止最好的：

> fn <- function(x) {if(!see_if(x==3)) warning(validate_that(x==3)); return(x+5)}
> fn(3)
[1] 8
> fn(4)
[1] 9
Warning message:
In fn(4) : x not equal to 3

如果可能的话，我正在寻找一个更简洁的解决方案（最好的情况是将“output_warning”参数传递给assert_that，但我认为不存在）。

4

4 回答 4

3

我创建了一个用户定义的函数，它接受与您想要运行的表达式相对应的字符串validate_that()（最终assert_that()）。如果断言失败，该函数将打印一个警告，否则保持沉默。用法见下文。如有必要，您可以轻松扩展此自定义函数以接受多个表达式。请注意，我还用于sys.calls()获取调用此辅助函数的函数的名称。这是一条重要的信息，因此您可以将警告与实际生成它们的代码相关联。

assert_that_soft <- function(exp) {
                        if (!exp) {
                            print (paste("Error in function:",
                                   parse(sys.calls()[[sys.nframe()-1]])) ) # name of caller
                        }
                    }

用法：

> fn <- function(x) { assert_that_soft(x==3); return(x+5) }
> fn(3)
[1] 8
> fn(8)
[1] "Error in function: fn(8)"
[1] 13
于 2015-07-01T02:04:20.130 回答
2

我认为覆盖函数的最简单方法是按assert_that原样复制大部分函数，​​并以相同的名称调用新函数，这样在进入错误模式时就不需要更改所有代码。

assert_that <- function(..., env=parent.frame()) {
    res <- see_if(..., env=env)
    if (res)
        return(TRUE)
    warning(attr(res, "msg"))
    TRUE
}

fn <- function(x) { assert_that(x==3); return(x+5) }
fn(3)
# [1] 8
fn(8)
# [1] 13
# Warning message:
# In assert_that(x == 3) : x not equal to 3
于 2015-07-01T03:10:07.623 回答
1

另一种选择是将 assert_that 包装在 tryCatch 中。

fn <- function(x) tryCatch(assert_that(x == 3), error = function(e) warning(e), finally = return(x+5))
fn(3)
# [1] 8
fn(8)
# [1] 13
# Warning message:
# x not equal to 3
于 2019-05-16T14:29:44.450 回答
0

我提议扩展 assertthat 包以允许简单的警告，请参阅 https://github.com/hadley/assertthat/issues/69 欢迎任何反馈！

于 2021-07-07T19:25:13.303 回答