Mercurial > pub > dyncall > bindings

view R/scratch/test_json.R @ 56:16151547265e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
made callback example python 2 compatible, and added some randomness to numbers to sort
author Tassilo Philipp
date Tue, 02 Feb 2021 21:07:41 +0100
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)