scriptTests/ProvJson/ProvJson.r

library(jsonvalidate)

schema <- "schema.json"

# pass cases
stopifnot( json_validate("cases/pass1.json", schema) )
stopifnot( json_validate("cases/empty.json", schema) )

# fail cases
stopifnot( ! json_validate("cases/fail1.json", schema) )
End-to-end-provenance/rdt documentation built on Aug. 11, 2022, 12:55 p.m.