file <- system.file("jsonexamples", "twitter.json", package="RcppSimdJson")
jsontxt <- readLines(file)

res <- microbenchmark::microbenchmark(jsonify = jsonify::validate_json(jsontxt),
                                      jsonlite = jsonlite::validate(jsontxt),
                                      simdjson = RcppSimdJson::validateJSON(file),
                                      ndjson = ndjson::validate(file),
                                      RJSONIO = RJSONIO::isValidJSON(file),
                                      yyjsonr = yyjsonr::validate_json_file(file),
                                      times = 100L)

print(res, order="median")