R/utils.R

In zzawadz/shinyProc: Some useful procedures for shiny

Defines functions counter iterator nullFnc emptyListFnc emptyString

counter = function()
{
  i = 0
  function()
  {
    i <<- i + 1;
    i
  }
  
}

iterator = function(x)
{
  x = force(x)
  i = 0
  function()
  {
    i <<- i + 1;
    x[i]
  }
  
}

nullFnc = function() NULL
emptyListFnc = function() list()

emptyString = function() ""