Convert code guardrails to a securer pre-execute hook

Takes one or more code guardrails and returns a function suitable for securer's pre_execute_hook parameter. The hook returns FALSE to block code that fails any guardrail, or TRUE to allow it.

Usage

as_pre_execute_hook(...)

Arguments

...

Guardrail objects with type = "code".

Value

A function with signature function(code) that returns TRUE if all guardrails pass, or FALSE (with warnings) if any fail.

Examples

hook <- as_pre_execute_hook(
  guard_code_analysis(),
  guard_code_complexity(max_ast_depth = 10)
)
hook("x <- 1 + 2")
#> [1] TRUE
hook("system('ls')")
#> Warning: Blocked function(s) detected: system
#> [1] FALSE