1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#' Validate JSON
#'
#' Test if a string contains valid JSON. Characters vectors will be collapsed into a single string.
#'
#' @param txt JSON string
#' @export
#' @useDynLib jsonlite R_validate
#' @examples #Output from toJSON and serializeJSON should pass validation
#' myjson <- toJSON(mtcars)
#' validate(myjson) #TRUE
#'
#' #Something bad happened
#' truncated <- substring(myjson, 1, 100)
#' validate(truncated) #FALSE
validate <- function(txt) {
stopifnot(is.character(txt))
txt <- paste(txt, collapse = "\n")
.Call(R_validate, as.character(txt))
}
|
