Create a new guardrail — new_guardrail • secureguard

Low-level constructor for guardrail objects. Prefer the guard_*() factory functions for end-user guardrails.

Usage

new_guardrail(name, type, check_fn, description = "")

Arguments

name: Character(1). Short identifier for the guardrail.
type: Character(1). One of "input", "code", or "output".
check_fn: A function taking a single argument and returning a guardrail_result().
description: Character(1). Human-readable description.

Value

An S7 object of class secureguard.

Examples

g <- new_guardrail(
  name = "no_eval",
  type = "code",
  check_fn = function(code) {
    if (grepl("\\beval\\b", code)) {
      guardrail_result(pass = FALSE, reason = "eval() detected")
    } else {
      guardrail_result(pass = TRUE)
    }
  },
  description = "Blocks eval() calls"
)
g@name
#> [1] "no_eval"
run_guardrail(g, "x <- 1")
#> <guardrail_result> PASS