Mercurial > pub > dyncall > bindings

comparison R/scratch/test_json.R @ 0:0cfcc391201f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial from svn dyncall-1745
author Daniel Adler
date Thu, 19 Mar 2015 22:26:28 +0100
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:0cfcc391201f
1 library(rjson)
2
3 parseJSON <- function(path)
4 {
5 parser <- newJSONParser()
6 f <- file(path)
7 open(f)
8 while(TRUE)
9 {
10 aLine <- readLines(f, 1)
11 if (length(aLine) == 0) break
12 parser$addData( aLine )
13 }
14 close(f)
15 parser$getObject()
16 }
17 # TEST:
18 testfile <- "/lab/eclipse/dyncall/rdyncall/inst/dynports/GL.json"
19 x <- parseJSON(testfile)
20 # print(glinfo)