exposure_printer <- function(.tbl) {
print(get_exposure(.tbl))
.tbl
}
mtcars_exposed <- mtcars %>%
expose(data_packs(. %>% dplyr::summarise(nrow_low = nrow(.) > 50))) %>%
act_after_exposure(any_breaker, exposure_printer)
Run the code above in your browser using DataLab