Nothing
library(Kmisc)
library( testthat )
dat <- list(
list(
list( a=factor(1), b=factor(c(2,3,4)) ),
list( c=factor(c("a", "b", "c")) ) ),
factor(c(1,2,3))
)
expect_identical( factor_to_char(dat), rapply(dat, as.character, how="list") )
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.