R/push_parser.R

In jsonlite: A Simple and Robust JSON Parser and Generator for R

#' @useDynLib jsonlite R_parse_connection
parse_con <- function(con, bigint_as_char) {
  stopifnot(inherits(con, "connection"))
  if (!isOpen(con)) {
    on.exit(close(con)) # also destroy con if 'open' fails
    open(con, "rb")
  }
  .Call(R_parse_connection, con, bigint_as_char)
}