Create named lists quickly in R

listn()

##' Quickly create a named list using one or more variables
##' 
##' Example:
##' > a <- 1; b <- 2
##' > listn(a,b)
##' $a
##' [1] 1
##' $b
##' [1] 2
listn <- function(...) {
  objs <- as.list(substitute(list(...)))[-1L]
  nm <- as.character(objs)
  v <- lapply(nm,get)
  names(v) <- nm
  return(v)
}