if (FALSE) {
library(magrittr)
# Valid assertions: data frame returned (invisibly)
mtcars %>%
validate(
vld_all(~sapply(., is.numeric)),
~{nrow(.) > 10},
vld_all(~c("mpg", "cyl") %in% names(.))
)
# Invalid assertions: error raised
mtcars %>%
validate(
vld_all(~sapply(., is.numeric)),
~{nrow(.) > 1000},
vld_all(~c("mpg", "cylinders") %in% names(.))
)
}
Run the code above in your browser using DataLab