# counter creation
counter <- makeCounter()
# return stored value
counter()
# incrementing/decrementing
counter(increment)
counter(increment, 5)
counter(decrement, 2)
# arbitrary function
counter(function(x) x * x)
# shared memory
counter2 <- counter
counter()
counter2(increment)
counter()
# starting value may be anything
counter3 <- makeCounter(start = "a")
counter3()
counter3(function(x) c(x, "b"))
Run the code above in your browser using DataLab