df <- data.frame(sid = c("S1", "S2"), score = c(50, 150))
f <- dcc_findings("S2", variable = "score", check_id = "R001",
evidence = "out of range", severity = "fail",
dimension = "validity")
res <- dcc_execute(df, f, actions = list(R001 = "set_na"),
id_var = "sid")
html <- dcc_report(res, audience = "audit")
substr(html, 1, 60)
Run the code above in your browser using DataLab