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) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.