Nothing
incrementor <- function(prefix = "increment_"){
i <- 0
function(){
i <<- i + 1
paste0(prefix, i)
}
}
increment_rank_list <- incrementor("rank_list_id_")
increment_bucket_list <- incrementor("bucket_list_id_")
increment_bucket_group <- incrementor("bucket_group_")
increment_rank_list_input_id <- incrementor("rank_list_shiny_")
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.