Nothing
`setcolclass.df` <-
function (df, colclass, factor.levels) {
ww <- options()$warn
options(warn=-1)
toCls <- function(x, cls) { do.call(paste("as", cls, sep = "."), list(x)) }
df <- replace(df, , Map(toCls, x=df, cls=colclass))
options(warn=ww)
iix <- FALSE
if(!missing(factor.levels)) { iix <- colclass == "factor" & !is.null(factor.levels) }
if(any(iix)) {
for(i in which(iix)) { levels(df[[i]]) <- factor.levels[[i]] }
}
return(df)
}
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.