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) )
blernermhc/RDataTracker documentation built on Aug. 15, 2022, 6:43 p.m.