demos/counter.r

In hadley/mutatr: Mutable objects for R.

source("../object-inheritance.r", chdir = TRUE)

Counter <- Object$clone()$do({
  init <- function() self$counter <- 0
  count <- function() {
    self$counter <- self$counter + 1
    self$counter
  }
})