Pretty Json

Adds indentiation to a JSON string

pretty_json(json, ...)

Arguments

json

string of JSON

...

other argments passed to to_json

Examples

df <- data.frame(id = 1:10, val = rnorm(10))
js <- to_json( df )
pretty_json(js)
#> [
#>     {
#>         "id": 1,
#>         "val": -0.5536993836887205
#>     },
#>     {
#>         "id": 2,
#>         "val": 0.628982042036008
#>     },
#>     {
#>         "id": 3,
#>         "val": 2.065024895359223
#>     },
#>     {
#>         "id": 4,
#>         "val": -1.6309894020822316
#>     },
#>     {
#>         "id": 5,
#>         "val": 0.5124269498518048
#>     },
#>     {
#>         "id": 6,
#>         "val": -1.863011492068328
#>     },
#>     {
#>         "id": 7,
#>         "val": -0.5220125147454544
#>     },
#>     {
#>         "id": 8,
#>         "val": -0.05260190995387954
#>     },
#>     {
#>         "id": 9,
#>         "val": 0.5429963426611403
#>     },
#>     {
#>         "id": 10,
#>         "val": -0.9140748272599284
#>     }
#> ]

## can also use directly on an R object
pretty_json( df )
#> [
#>     {
#>         "id": 1,
#>         "val": -0.5536993836887205
#>     },
#>     {
#>         "id": 2,
#>         "val": 0.628982042036008
#>     },
#>     {
#>         "id": 3,
#>         "val": 2.065024895359223
#>     },
#>     {
#>         "id": 4,
#>         "val": -1.6309894020822316
#>     },
#>     {
#>         "id": 5,
#>         "val": 0.5124269498518048
#>     },
#>     {
#>         "id": 6,
#>         "val": -1.863011492068328
#>     },
#>     {
#>         "id": 7,
#>         "val": -0.5220125147454544
#>     },
#>     {
#>         "id": 8,
#>         "val": -0.05260190995387954
#>     },
#>     {
#>         "id": 9,
#>         "val": 0.5429963426611403
#>     },
#>     {
#>         "id": 10,
#>         "val": -0.9140748272599284
#>     }
#> ]