Nothing
add_level_column <- function(df_in, lev_col_name){
# Copy original
df_out <- df_in
# Add level column
df_out[[lev_col_name]] <- as.numeric(1:nrow(df_in))
# Return with level column in first position
return(df_out[,c(lev_col_name, colnames(df_in))])
}
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.