incrementor <- function(prefix = "increment_"){
i <- 0
function(){
i <<- i + 1
paste0(prefix, i)
}
}
increment_parsons <- incrementor("parsons_list_id_")
increment_parsons_group <- incrementor("parsons_group_")
increment_bucket <- incrementor("bucket_list_id_")
increment_bucket_group <- incrementor("bucket_group_")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.