rules <- list(
list(column = "3.98", type = "numeric", min = 0, na_allowed = TRUE),
list(column = "monthyear", type = "character", unique = FALSE)
)
validate_data(data[1:50, c(1, 4, 17:19)], rules)
Run the code above in your browser using DataLab