as_jlvalue.factor <- function(fa, ...) {
jlusing("CategoricalArrays")
jlcall("categorical", as_jlvalue(as.character(fa)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.