schema <- schema_doc(list(
check = list(kind = "list"),
keys = list(type = "unnamed")
))
schema <- schema_add_position(schema, 1, schema_check("string"))
schema <- schema_add_position(schema, 2, schema_check("int"))
schema
schema_validate(schema, list("a", 1L), mode = "test")
Run the code above in your browser using DataLab