在 R 中使用 assertr::verify 时如何获得信息量更大的断言？

Question

meses <- c("A", "B", "C")

tibble::tibble(
  mes = c("A", "b", "C")
) %>% 
  assertr::verify(mes %in% meses)

来自verify的消息。 这是正确的，因为它说的是错误的索引，但是在value列中没有显示tibble中mes列的值，所以我必须查找该行。

    verb redux_fn      predicate column index value
1 verify       NA mes %in% meses     NA     2    NA

期望的输出

    verb redux_fn      predicate column index value
1 verify       NA mes %in% meses     NA     2    b

Answer 1

我们可以使用assert来返回“值”

library(assertr)
library(tibble)
tibble(mes = c("A", "b", "C")) %>% 
   assert(function(x)  x %in% meses, mes)
Column 'mes' violates assertion 'function(x) x %in% meses' 1 time
    verb redux_fn                predicate column index value
1 assert       NA function(x) x %in% meses    mes     2     b

---

使用verify时， error_fun中的默认选项是error_stop 。 如果我们可以更改默认选项，它应该可以工作

tibble::tibble(
  mes = c("A", "b", "C")
) %>% 
  assertr::verify(mes %in% meses, 
  error_fun = function(errors, data = .) 
   {
     errors[[1]]$error_df$value <- .$mes[errors[[1]]$error_df$index]
   errors[[1]]
  })

-输出

verification [mes %in% meses] failed! (1 failure)

    verb redux_fn      predicate column index value
1 verify       NA mes %in% meses     NA     2     b