R/jlValue_CategoricalArray.R

Defines functions levels.CategoricalArray toR.CategoricalArray jlCategoricalArray

jlCategoricalArray <- function(fa) {
    jlvalue.factor(fa)
}

toR.CategoricalArray <- function(jlval) {
    pool <- jlgetfield(jlval, "pool")
    res <- jlgetfieldR(jlval, "refs")
    attr(res,"levels") <- jlvalue_callR("levels", pool)
    class(res) <- "factor"
    res
}

levels.CategoricalArray <- function(jlval) {
    jlvalue_call("levels", jlval)
}
rcqls/jl4R documentation built on June 29, 2024, 3:15 p.m.