R/jlR_list.R

Defines functions as_jlvalue.list

## Convert to Tuple or NamedTuple
as_jlvalue.list <-  function(obj, ...) {
    if(!.jlrunning()) .jlinit()
    if(is.null(names(obj))) {
        .RList2jlTuple(obj)
    } else {
        names(obj)[names(obj) == ""] <- paste0("var",1:sum(names(obj) == ""))
        .RNamedList2jlNamedTuple(obj)
        # .RNamedlist2jlDict(obj)
    }
}
rcqls/jl4R documentation built on April 14, 2024, 11:34 p.m.