Run a single guardrail
Examples
g <- guard_code_analysis()
result <- run_guardrail(g, "x <- 1 + 2")
result@pass
#> [1] TRUE
result2 <- run_guardrail(g, "system('ls')")
result2@pass
#> [1] FALSE
result2@reason
#> [1] "Blocked function(s) detected: system"