1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#' @rdname fromJSON
toJSON <- function(x, dataframe = c("rows", "columns", "values"), matrix = c("rowmajor", "columnmajor"),
Date = c("ISO8601", "epoch"), POSIXt = c("string", "ISO8601", "epoch", "mongo"),
factor = c("string", "integer"), complex = c("string", "list"), raw = c("base64", "hex", "mongo", "int", "js"),
null = c("list", "null"), na = c("null", "string"), auto_unbox = FALSE, digits = 4,
pretty = FALSE, force = FALSE, ...) {
# validate args
dataframe <- match.arg(dataframe)
matrix <- match.arg(matrix)
Date <- match.arg(Date)
POSIXt <- match.arg(POSIXt)
factor <- match.arg(factor)
complex <- match.arg(complex)
raw <- match.arg(raw)
null <- match.arg(null)
# force
x <- force(x)
#this is just to check, we keep method-specific defaults
if(!missing(na)){
na <- match.arg(na)
} else {
na <- NULL
}
indent <- if (isTRUE(pretty)) 0L else NA_integer_
# dispatch
ans <- asJSON(x, dataframe = dataframe, Date = Date, POSIXt = POSIXt, factor = factor,
complex = complex, raw = raw, matrix = matrix, auto_unbox = auto_unbox, digits = digits,
na = na, null = null, force = force, indent = indent, ...)
#prettify with yajl
if(is.numeric(pretty)) {
prettify(ans, pretty)
} else {
class(ans) <- "json"
return(ans)
}
}
|
