R/jlValue_Array.R

In rcqls/jl4R: Julia Interface

jlArray <- function(...) {
    obj <- c(...)
    jlvalue(obj)
}

length.Array <- function(jlval) {
    jlvalue_callR("length",jlval)
}

"[.Array" <- function(jlval, i) {
    s <- length(jlval)
    if (i > 0 && i <= s) {
        i <- jleval(as.character(i))
        jlvalue_call("getindex", jlval, i)
    } else {
        NULL
    }
}

`[.AbstractArray` <- function(jlval, index) {
    jltrycall("getindex", jlval, index)
}

# `[<-.AbstractArray` <- function(jlval, index, value) {
#     jltrycall("setindex!", jlval, value, index)
# }