closure <- function(..., frame=3) {
  parent <- parent.frame()
  frame <- ifelse(frame=="sapply", 4, frame)
  grandparent <- sys.frame(sys.nframe()-frame)
  for(name in c(...))
    assign(name, get(name, envir=parent), envir=grandparent)
}

x <- 0
lapply(list(1,2,3,4,5), function(y) {
   x <- x + 1
   message("Run number ", x)
   closure("x")
   print(y);
})
print(x)

• a doTimes like Ruby's <int>.times { } method that does something some number of times and returns the results (like calling a map function to an integer range)
• A foreach that can handle lists sanely.  For instance, if you want to do something for every name and value in a list, it takes more lines of code then it should.
• A propper logging mechanism for long running tasks.  A whole lot of R tasks take a while to run (R is slow).  I'm writing a logging class that can print out the % complete for some task as well as an estimate to time of completion.
• and more....

So, dude, like we should, like, totally just stop using money, and, like, start living on farms and like treating animals with respect.  And everybody should have free healthcare, which we won't really need 'cause there won't be any McDonalds, and, like, college should be free.

Totally dude, down with capitalist pigs and up with real pigs, man, like they're smart animals, man.  I mean, like, society is totally screwed up, like fuck it, dude.

Sure!  Fuck it!  That's your answer!  Tattoo it on your forehead!  Your answer to everything!  Your "revolution" is over, [smelly hippie]!  Condolences!  The bums lost!  My advice is, do what your parents did!  Get a job, sir!  The bums will always lose-- do you hear me?!

CharlestonCulture.com Launch Party from Anthony Spencer on Vimeo.