Nothing
## ----echo = FALSE, results = "hide"-------------------------------------------
knitr::opts_chunk$set(error = FALSE)
## -----------------------------------------------------------------------------
schema <- '{
"$schema": "http://json-schema.org/draft-04/schema#",
"title": "Product",
"description": "A product from Acme\'s catalog",
"type": "object",
"properties": {
"id": {
"description": "The unique identifier for a product",
"type": "integer"
},
"name": {
"description": "Name of the product",
"type": "string"
},
"price": {
"type": "number",
"minimum": 0,
"exclusiveMinimum": true
},
"tags": {
"type": "array",
"items": {
"type": "string"
},
"minItems": 1,
"uniqueItems": true
}
},
"required": ["id", "name", "price"]
}'
## -----------------------------------------------------------------------------
v <- jsonvalidate::json_validator(schema)
## -----------------------------------------------------------------------------
path <- tempfile()
writeLines(schema, path)
v <- jsonvalidate::json_validator(path)
## ----include = FALSE----------------------------------------------------------
file.remove(path)
## -----------------------------------------------------------------------------
v("{}")
## -----------------------------------------------------------------------------
v("{}", verbose = TRUE)
## ----error = TRUE-------------------------------------------------------------
v("{}", error = TRUE)
## -----------------------------------------------------------------------------
v("{}", verbose = TRUE, greedy = TRUE)
## -----------------------------------------------------------------------------
v('{
"id": 1,
"name": "A green door",
"price": 12.50,
"tags": ["home", "green"]
}')
## -----------------------------------------------------------------------------
v('{
"id": 1,
"name": "A green door",
"price": -1,
"tags": ["home", "green"]
}', verbose = TRUE)
## -----------------------------------------------------------------------------
v('{
"id": 1,
"name": "A green door",
"price": 12.50,
"tags": ["home", "home"]
}', verbose = TRUE)
## -----------------------------------------------------------------------------
v('{
"id": "identifier",
"name": 1,
"price": -1,
"tags": ["home", "home", 1]
}', verbose = TRUE)
## -----------------------------------------------------------------------------
json <- '{
"id": 1,
"name": "A green door",
"price": 12.50,
"tags": ["home", "green"]
}'
jsonvalidate::json_validate(json, schema)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.