interact with R event loops about rcall.jl HOT 9 CLOSED

julia> using RCall

julia> reval("gc()")
RCall.RObject{RCall.RealSxp}
         used (Mb) gc trigger (Mb) max used (Mb)
Ncells 219236 11.8     460000 24.6   350000 18.7
Vcells 322397  2.5     786432  6.0   786432  6.0


julia> unsafe_load(cglobal((:R_interrupts_pending,RCall.libR),Cint))
0

julia> ^C

julia> unsafe_load(cglobal((:R_interrupts_pending,RCall.libR),Cint))
1

julia> reval("gc()")
ERROR: RCall.jl 

 in error at error.jl:22
 in reval_p at /Users/Randy/.julia/v0.4/RCall/src/iface.jl:11
 in reval_p at /Users/Randy/.julia/v0.4/RCall/src/iface.jl:19
 in reval at /Users/Randy/.julia/v0.4/RCall/src/iface.jl:29
 in reval at /Users/Randy/.julia/v0.4/RCall/src/iface.jl:31

julia> unsafe_load(cglobal((:R_interrupts_pending,RCall.libR),Cint))
0

julia> reval("gc()")

signal (11): Segmentation fault: 11
sexp at /Users/Randy/.julia/v0.4/RCall/src/types.jl:332
jlcall_sexp_21406 at  (unknown line)
reval_p at /Users/Randy/.julia/v0.4/RCall/src/iface.jl:18
reval at /Users/Randy/.julia/v0.4/RCall/src/iface.jl:29
jlcall_reval_21501 at  (unknown line)
reval at /Users/Randy/.julia/v0.4/RCall/src/iface.jl:31
jl_apply at /opt/local/julia/src/interpreter.c:55
eval at /opt/local/julia/src/interpreter.c:213
jl_toplevel_eval_flex at /opt/local/julia/src/toplevel.c:527
jl_toplevel_eval_in at /opt/local/julia/src/builtins.c:579
eval_user_input at REPL.jl:62
jlcall_eval_user_input_21271 at  (unknown line)
anonymous at REPL.jl:92
jl_apply at /opt/local/julia/src/task.c:241
Selection: 

    if !Rinited
        unsafe_store!(cglobal((:R_SignalHandlers,libR),Cint),0)
        argv = ["REmbeddedJulia","--silent","--no-save"]
        i = ccall((:Rf_initEmbeddedR,libR),Cint,(Cint,Ptr{Ptr{UInt8}}),length(argv),argv)
        i > 0 || error("initEmbeddedR failed. Try restarting and running Pkg.build(\"RCall\").")
        global const Rproc = Rinstance(i)
    end