# Validate data with specified rules
data("valid_example")
data("invalid_example")
data("test_rules")
result_valid <- validate_data(files_data = valid_example,
data_names = c("methodology", "particles", "samples"),
file_rules = test_rules)
result_invalid <- validate_data(files_data = invalid_example,
data_names = c("methodology", "particles", "samples"),
file_rules = test_rules)
Run the code above in your browser using DataLab