## 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)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.