r - 在 case_when() 中抛出错误

Question

我有一个 case_when()里面mutate()如果 TRUE，我希望 R 停止并抛出错误条件满足。这是为了调试目的。

例如，mtcars$cyl 的值为 4、6 或 8。在第四行中使用适当的解决方案后，它应该能够无错误地运行:

mtcars %>%
  mutate(test = case_when(
    cyl > 3 ~ "ok",
    TRUE ~ # code for throwing error here
  ))

这应该抛出错误:

mtcars %>%
  mutate(test = case_when(
    cyl < 3 ~ "ok",
    TRUE ~ # code for throwing error here
  ))

我试过 stop但这会触发异常，即使 TRUE永远不会实现。

Answer 1

您不能在 case_when 中执行此操作据我所知，请调用，因为所有 RHS 都将事先进行评估，以确保它们属于同一类型。

但是，您可以这样做:

mtcars %>%
  mutate(test = case_when(
    cyl > 3 ~ "ok",
    TRUE ~ NA_character_
  ),
  test=if (anyNA(test)) stop() else test
  )

或者

mtcars %>%
  mutate(test = case_when(
    cyl > 3 ~ "ok",
    TRUE ~ "STOP_VALUE"
  ),
  test=if ("STOP_VALUE" %in% test) stop() else test
  )