data("invalid_example")
data("test_rules")
# Generate a validation report
result_invalid <- validate_data(files_data = invalid_example,
data_names = c("methodology", "particles", "samples"),
file_rules = test_rules)
# Find the broken rules
broken_rules <- rules_broken(results = result_invalid$results[[1]], show_decision = TRUE)
# Get rows for the specified rules
violating_rows <- rows_for_rules(data_formatted = result_invalid$data_formatted[[1]],
report = result_invalid$report[[1]],
broken_rules = broken_rules,
rows = 1)
Run the code above in your browser using DataLab