if (FALSE) {
x <- c(1, 2, 3)
check_contents(x, c(4, 5))
general = "Each item of `x` must be `NA`."
# `valid` can be a function or R code
check_contents(x, is.na, general = general)
check_contents(x, "is.na(x_i)", general = general)
}
Run the code above in your browser using DataLab