Permalink
Switch branches/tags
Nothing to show
Find file
7afc305 Dec 12, 2012
20 lines (16 sloc) 290 Bytes

Incremental Figure Numbers

fn = local({
  i = 0
  function(x) {
    i <<- i + 1
    paste('Figure ', i, ': ', x, sep = '')
  }
})
plot(1:10)
plot(rnorm(10))