library(RJSONIO); f= "inst/sampleData/web.json"; .Call("R_json_parser_test_stream", f)
library(RJSONIO); f= "inst/sampleData/web.json"; .Call("R_json_parser_test_stream_str", '[1,2, 3]{"a": [true, false]}')
library(RJSONIO); f= "inst/sampleData/web.json"; .Call("R_json_parser_test_stream_str", paste(readLines("inst/sampleData/web.json"), collapse = "\n"))
library(RJSONIO)
val = list(a = 1:100, b = 100:1, c = rnorm(1000))
xx = toJSON(val, digits = 16)
ans = .Call("R_json_parser_test_stream_str", xx)
# in chunks
ans = .Call("R_json_parser_test_stream_chunk", xx)
all.equal(val, ans)
z = replicate(400, {ans = .Call("R_json_parser_test_stream_chunk", xx); all.equal(val, ans)})
library(RJSONIO)
val = list(a = 1:100, b = 100:1, c = rnorm(1000))
xx = toJSON(val, digits = 16)
con = textConnection(xx)
getData = function() readLines(con, n = 1)
ans = .Call("R_json_parser_test_stream_chunk_con", quote(getData()))
all.equal(ans, val)
library(RJSONIO)
val = list(a = 1:100, b = 100:1, c = rnorm(1000))
xx = toJSON(val, digits = 16)
con = textConnection(xx)
e = substitute(readLines(con, n = 1), list(con = con))
ans = .Call("R_json_parser_test_stream_chunk_con", e)
all.equal(ans, val)
####################
library(RJSONIO)
val = list(a = 1:100, b = 100:1, c = rnorm(1000))
xx = toJSON(val, digits = 16)
z = replicate(40, {
con = textConnection(xx)
e = substitute(readLines(con, n = 1), list(con = con))
ans = .Call("R_json_parser_init_from_con", e, NULL, 14L, NULL, TRUE)
all.equal(ans, val)
})
table(z)
# With a callback
library(RJSONIO)
val = list(a = 1:100, b = 100:1, c = rnorm(1000))
xx = toJSON(val, digits = 16)
con = textConnection(xx)
e = substitute(readLines(con, n = 1), list(con = con))
f = function(x)
print(x)
ans = .Call("R_json_parser_init_from_con", e, f, 14L, NULL, TRUE)
all.equal(ans, val)
library(RJSONIO)
xx = '[1,2, 3]{"a": [true, false]}'
con = textConnection(xx)
e = substitute(readLines(con, n = 1), list(con = con))
f = function(x)
print(sum(unlist(x)))
ans = .Call("R_json_parser_init_from_con", e, f)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.