Nothing
col_string <- function(
data = NULL,
ncol = 1,
str = NULL,
usestr = FALSE
){
if(usestr){
unlist(data[str],use.names = F)
}else{
unlist(data[colnames(data)[ncol]],use.names = F)
}
}
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.