diff --git a/R/assert.R b/R/assert.R index 66197d3..5d41827 100644 --- a/R/assert.R +++ b/R/assert.R @@ -41,9 +41,10 @@ assert <- function(.data, ..., msg = "Assertion does not hold") { ) cat(msg) + .condition_eval -> NULL .assert_fails <- dplyr::mutate(.data, .condition_eval = condition_eval) if (rlang::is_interactive()) { - View(.assert_fails) # TODO: should we sample? + utils::View(.assert_fails) # TODO: should we sample? } else { .assert_fails |> dplyr::filter(!.condition_eval) |>