R/incrementor.R

In timelyportfolio/sortableR: Drag-and-Drop in 'shiny' Apps with 'SortableJS'

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_")