v <- Validator(
data = list(name = "Alice", age = 30),
schema = list(
name = list(type = "character", required = TRUE),
age = list(type = "numeric", min_val = 0, max_val = 150)
)
)
v@valid # TRUE
# Schema object can be given directly
s <- Schema(list(a = list(type = "numeric"), b = list(type = "character")))
v <- Validator(list(a = "Hello", b = 42), s)
v@valid # FALSE
v@errors
# To error on invalid schema or data
try(Validator(list(a = "Hello", b = 42), s, error = TRUE))
# Invalid schemas show their errors
try(Validator(list(42), list(type = 123), error = TRUE))
# Transforms data according to rules
v <- Validator(1, list(coerce = "character"))
v@data # "1"
Run the code above in your browser using DataLab