Mercurial > pub > dyncall > bindings

view R/scratch/test_json.R @ 61:c5a69c454963 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- allow use of 'None' with 'Z' - bumped version to 1.4 (be in sync current dyncall version)
author Tassilo Philipp
date Mon, 03 Apr 2023 19:06:07 +0200
parents 0cfcc391201f
children
line wrap: on
line source

library(rjson)

parseJSON <- function(path)
{
  parser <- newJSONParser()
  f <- file(path)
  open(f)
  while(TRUE) 
  {
    aLine <- readLines(f, 1)
    if (length(aLine) == 0) break    
    parser$addData( aLine )
  }
  close(f)
  parser$getObject()
}
# TEST:
testfile <- "/lab/eclipse/dyncall/rdyncall/inst/dynports/GL.json"
x <- parseJSON(testfile)
# print(glinfo)