schema <- schema_doc(list(check = list(kind = "list")))
schema
schema <- schema_add_group(schema, schema_group(c("x", "y"), schema_check("number")))
schema
schema_validate(schema, list(x = 1, y = 2), mode = "test")
Run the code above in your browser using DataLab