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