R version 4.5.0 alpha (2025-03-25 r88054 ucrt)
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(RJSONIO)
> 
> ff = system.file("sampleData", "keys.json", package = "RJSONIO")
> print(ff)
[1] "D:/RCompile/CRANincoming/R-devel/lib/RJSONIO/sampleData/keys.json"
> z = paste(readLines(ff), collapse = "\n")
> 
> fromJSON(I(z))
$menu
$menu$header
[1] "SVG Viewer"

$menu$items
$menu$items[[1]]
    id 
"Open" 

$menu$items[[2]]
        id      label 
 "OpenNew" "Open New" 

$menu$items[[3]]
NULL

$menu$items[[4]]
       id     label 
 "ZoomIn" "Zoom In" 

$menu$items[[5]]
        id      label 
 "ZoomOut" "Zoom Out" 

$menu$items[[6]]
             id           label 
 "OriginalView" "Original View" 

$menu$items[[7]]
NULL

$menu$items[[8]]
       id 
"Quality" 

$menu$items[[9]]
     id 
"Pause" 

$menu$items[[10]]
    id 
"Mute" 

$menu$items[[11]]
NULL

$menu$items[[12]]
       id     label 
   "Find" "Find..." 

$menu$items[[13]]
          id        label 
 "FindAgain" "Find Again" 

$menu$items[[14]]
    id 
"Copy" 

$menu$items[[15]]
          id        label 
 "CopyAgain" "Copy Again" 

$menu$items[[16]]
        id      label 
 "CopySVG" "Copy SVG" 

$menu$items[[17]]
        id      label 
 "ViewSVG" "View SVG" 

$menu$items[[18]]
           id         label 
 "ViewSource" "View Source" 

$menu$items[[19]]
       id     label 
 "SaveAs" "Save As" 

$menu$items[[20]]
NULL

$menu$items[[21]]
    id 
"Help" 

$menu$items[[22]]
                         id                       label 
                    "About" "About Adobe CVG Viewer..." 



> 
> fromJSON(ff, function(type, val) { cat(names(type), "\n"); TRUE})
OBJECT_BEGIN 
KEY 
OBJECT_BEGIN 
KEY 
STRING 
KEY 
ARRAY_BEGIN 
OBJECT_BEGIN 
KEY 
STRING 
OBJECT_END 
OBJECT_BEGIN 
KEY 
STRING 
KEY 
STRING 
OBJECT_END 
NULL 
OBJECT_BEGIN 
KEY 
STRING 
KEY 
STRING 
OBJECT_END 
OBJECT_BEGIN 
KEY 
STRING 
KEY 
STRING 
OBJECT_END 
OBJECT_BEGIN 
KEY 
STRING 
KEY 
STRING 
OBJECT_END 
NULL 
OBJECT_BEGIN 
KEY 
STRING 
OBJECT_END 
OBJECT_BEGIN 
KEY 
STRING 
OBJECT_END 
OBJECT_BEGIN 
KEY 
STRING 
OBJECT_END 
NULL 
OBJECT_BEGIN 
KEY 
STRING 
KEY 
STRING 
OBJECT_END 
OBJECT_BEGIN 
KEY 
STRING 
KEY 
STRING 
OBJECT_END 
OBJECT_BEGIN 
KEY 
STRING 
OBJECT_END 
OBJECT_BEGIN 
KEY 
STRING 
KEY 
STRING 
OBJECT_END 
OBJECT_BEGIN 
KEY 
STRING 
KEY 
STRING 
OBJECT_END 
OBJECT_BEGIN 
KEY 
STRING 
KEY 
STRING 
OBJECT_END 
OBJECT_BEGIN 
KEY 
STRING 
KEY 
STRING 
OBJECT_END 
OBJECT_BEGIN 
KEY 
STRING 
KEY 
STRING 
OBJECT_END 
NULL 
OBJECT_BEGIN 
KEY 
STRING 
OBJECT_END 
OBJECT_BEGIN 
KEY 
STRING 
KEY 
STRING 
OBJECT_END 
ARRAY_END 
OBJECT_END 
OBJECT_END 
NULL
> 
> 
> proc.time()
   user  system elapsed 
   0.25    0.06    0.29