Nothing
select_factors <- function(df){
for (i in names(df)){
if (is.numeric(df[,i]) == TRUE){
df[,i] = NULL
}
}
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.