Nothing
ir_validate <- function(x, error = FALSE) {
ir_validate_against_schema(x, error)
}
ir_validate_against_schema <- function(x, error) {
if (is.null(.odin$validator)) {
.odin$validator <- ir_validate_create_validator()
}
.odin$validator(x, verbose = TRUE, greedy = TRUE, error = error)
}
ir_validate_create_validator <- function() {
path <- system.file("schema.json", package = "odin", mustWork = TRUE)
schema <- read_string(path)
## We get somewhat better errors from jsonlite's parsers than hoping
## that the json is valid.
jsonlite::fromJSON(schema)
jsonvalidate::json_validator(schema, engine = "ajv")
}
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.