schema <- schema_compact(schema_infer(list(
issued = list(`date-parts` = list(list(2024L))),
created = list(`date-parts` = list(list(2024L)))
), arrays = "rest"))
schema
schema_find(schema, schema_where_path("(^|\\$)`date-parts`\\$rest$"))
schema_find(schema, schema_where_check("int"))
Run the code above in your browser using DataLab