Document parameters bigint_as_char and json_verbatim

R/apply_by_pages.R

@@ -4,6 +4,10 @@ apply_by_pages <- function(x, FUN, pagesize, verbose, ...){
   npages <- nr %/% pagesize;
   lastpage <- nr %% pagesize;
 
+  `[.json` <- function(x, i) {
+    structure(NextMethod("["), class = c("json", "character"))
+  }
+
   out <- as.list(rep(NA, npages + as.logical(lastpage)))
   for(i in seq_len(npages)){
     from <- pagesize * (i-1) + 1;

R/fromJSON.R

@@ -39,6 +39,8 @@
 #' @param digits max number of decimal digits to print for numeric values. Use \code{I()} to specify significant digits. Use \code{NA} for max precision.
 #' @param force unclass/skip objects of classes with no defined JSON mapping
 #' @param pretty adds indentation whitespace to JSON output. Can be TRUE/FALSE or a number specifying the number of spaces to indent. See \code{\link{prettify}}
+#' @param json_verbatim do not JSON encode a json character (i.e. a character coming from `toJSON()`) again but leave it as it is
+#' @param bigint_as_char read big integers as character
 #' @param ... arguments passed on to class specific \code{print} methods
 #' @references Jeroen Ooms (2014). The \code{jsonlite} Package: A Practical and Consistent Mapping Between JSON Data and \R{} Objects. \emph{arXiv:1403.2805}. \url{https://arxiv.org/abs/1403.2805}
 #' @examples # Stringify some data
@@ -75,7 +77,7 @@
 #' identical(data3, flatten(data2))
 #' }
 fromJSON <- function(txt, simplifyVector = TRUE, simplifyDataFrame = simplifyVector,
-  simplifyMatrix = simplifyVector, flatten = FALSE, ...) {
+  simplifyMatrix = simplifyVector, flatten = FALSE, bigint_as_char = FALSE, ...) {
 
   # check type
   if (!is.character(txt) && !inherits(txt, "connection")) {

R/toJSON.R

@@ -3,7 +3,7 @@ toJSON <- function(x, dataframe = c("rows", "columns", "values"), matrix = c("ro
   Date = c("ISO8601", "epoch"), POSIXt = c("string", "ISO8601", "epoch", "mongo"),
   factor = c("string", "integer"), complex = c("string", "list"), raw = c("base64", "hex", "mongo"),
   null = c("list", "null"), na = c("null", "string"), auto_unbox = FALSE, digits = 4,
-  pretty = FALSE, force = FALSE, ...) {
+  pretty = FALSE, force = FALSE, json_verbatim = FALSE, ...) {
 
   # validate args
   dataframe <- match.arg(dataframe)