Mercurial > pub > dyncall > bindings

view R/scratch/test_json.R @ 32:2089026debae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- allowing 'None' as arg for pydc.load, effectively resulting in dlLoadLibrary(NULL), which is own process
author Tassilo Philipp
date Sat, 11 Apr 2020 18:02:33 +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)