Mercurial > pub > dyncall > bindings
view R/scratch/test_json.R @ 45:da553362fa7c
- forgot to bounce version for last commit on oct 27
author | Tassilo Philipp |
---|---|
date | Thu, 12 Nov 2020 19:56:33 +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)