# \donttest{
# Create temporary directory for example
temp_dir <- tempfile()
dir.create(temp_dir)
# Create sample JSON database
sample_db <- list(
measures = list(
anxiety = list(name = "Anxiety Scale", items = 10)
)
)
json_path <- file.path(temp_dir, "measures_db.json")
if (requireNamespace("jsonlite", quietly = TRUE)) {
jsonlite::write_json(sample_db, json_path)
# Validate a measures database
errors <- validate_json_database(json_path, "measures")
if (length(errors) == 0) {
message("Database is valid!")
} else {
cat("Validation errors:\n", paste(errors, collapse = "\n"))
}
}
# Clean up
unlink(temp_dir, recursive = TRUE)
# }
Run the code above in your browser using DataLab