# \donttest{
ctx <- r4subcore::r4sub_run_context(study_id = "STUDY01")
ev <- r4subcore::as_evidence(
data.frame(
asset_type = "dataset", asset_id = "ADSL",
source_name = "test", source_version = "1.0",
indicator_id = "Q-001", indicator_name = "Test",
indicator_domain = "quality", severity = "high",
result = "fail", metric_value = 1, metric_unit = "n",
message = "Example finding", location = "ADSL",
evidence_payload = "{}", stringsAsFactors = FALSE
), ctx = ctx
)
prof <- submission_profile("FDA", "NDA")
result <- validate_against_profile(ev, prof)
result$is_compliant
result$missing_indicators
# }
Run the code above in your browser using DataLab