schema <- schema_doc(list(
check = list(kind = "list"),
fields = list(id = list(check = list(kind = "int", lower = 1)))
))
schema
schema_validate(schema, list(id = 1L), mode = "test")
schema_validate(schema, list(id = 0L), mode = "check", name = "payload")
Run the code above in your browser using DataLab