Save or load R object in 'JSON' format

Usage

save_json(
  x,
  con = stdout(),
  ...,
  digits = ceiling(-log10(.Machine$double.eps)),
  pretty = TRUE,
  serialize = TRUE
)

load_json(con, ..., map = NULL)

Arguments

x: R object to save
con: file or connection
...: other parameters to pass into toJSON or fromJSON
digits: number of digits to save
pretty: whether the output should be pretty
serialize: whether to save a serialized version of x; see 'Examples'.
map: a map to save the results

Value

save_json returns nothing; load_json returns an R object.

Examples



# Serialize
save_json(list(a = 1, b = function(){}))
#> {
#>   "type": "list",
#>   "attributes": {
#>     "names": {
#>       "type": "character",
#>       "attributes": {},
#>       "value": ["a", "b"]
#>     }
#>   },
#>   "value": [
#>     {
#>       "type": "double",
#>       "attributes": {},
#>       "value": [1]
#>     },
#>     {
#>       "type": "closure",
#>       "attributes": {},
#>       "value": [
#>         {
#>           "type": "language",
#>           "attributes": {
#>             "srcref": {
#>               "type": "list",
#>               "attributes": {},
#>               "value": [
#>                 {
#>                   "type": "integer",
#>                   "attributes": {
#>                     "srcfile": {
#>                       "type": "environment",
#>                       "attributes": {
#>                         "class": {
#>                           "type": "character",
#>                           "attributes": {},
#>                           "value": ["srcfilecopy", "srcfile"]
#>                         }
#>                       },
#>                       "value": {}
#>                     },
#>                     "class": {
#>                       "type": "character",
#>                       "attributes": {},
#>                       "value": ["srcref"]
#>                     }
#>                   },
#>                   "value": [4, 37, 4, 37, 37, 37, 4, 4]
#>                 }
#>               ]
#>             },
#>             "srcfile": {
#>               "type": "environment",
#>               "attributes": {
#>                 "class": {
#>                   "type": "character",
#>                   "attributes": {},
#>                   "value": ["srcfilecopy", "srcfile"]
#>                 }
#>               },
#>               "value": {}
#>             },
#>             "wholeSrcref": {
#>               "type": "integer",
#>               "attributes": {
#>                 "srcfile": {
#>                   "type": "environment",
#>                   "attributes": {
#>                     "class": {
#>                       "type": "character",
#>                       "attributes": {},
#>                       "value": ["srcfilecopy", "srcfile"]
#>                     }
#>                   },
#>                   "value": {}
#>                 },
#>                 "class": {
#>                   "type": "character",
#>                   "attributes": {},
#>                   "value": ["srcref"]
#>                 }
#>               },
#>               "value": [1, 0, 4, 38, 0, 38, 1, 4]
#>             }
#>           },
#>           "value": ["{", "}"]
#>         }
#>       ]
#>     }
#>   ]
#> }

# use toJSON
save_json(list(a = 1, b = function(){}), serialize = FALSE)
#> {
#>   "a": [1],
#>   "b": ["function () ", "{", "}"]
#> }


# Demo of using serializer
f1 <- tempfile(fileext = ".json")
save_json(x ~ y + 1, f1)

load_json(f1)
#> x ~ y + 1
#> <environment: 0x1301f28b8>

unlink(f1)