Report all {checkmate} assertions in the style of {withr}

with_assert_collection.R

#' Report all assertions
#' 
#' @examples
#' with_assertion_collection(
#'   assert_data_frame(df),
#'   assert_numeric(nums),
#'   assert_character(chars)
#' )
with_assert_collection <- function(...) {
  add <- makeAssertCollection()
  quos <- enquos(...)
  quos <- map(quos, call_modify, add = add)
  walk(quos, eval_tidy)
  reportAssertions(add)
}