# NOT RUN {
verify(mtcars, has_all_names("mpg", "wt", "qsec"))
library(magrittr) # for pipe operator
# }
# NOT RUN {
mtcars %>%
verify(has_all_names("mpgg")) # fails
# }
# NOT RUN {
mpgg <- "something"
mtcars %>%
verify(exists("mpgg")) # passes but big mistake
# }
# NOT RUN {
mtcars %>%
verify(has_all_names("mpgg")) # correctly fails
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace