some useful util functions in r

util.r

#list names and sizes of objects in workspace
#   by default, order by size desc
ls.objects <- function (pos = 1, pattern, alpha=F,head=FALSE, n=10) {
     napply <- function(names, fn) sapply(names, function(x)
          fn(get(x, pos = pos)))
     names <- ls(pos = pos, pattern = pattern)
     obj.class <- napply(names, function(x) as.character(class(x))[1])
     obj.mode <- napply(names, mode)
     obj.type <- ifelse(is.na(obj.class), obj.mode, obj.class)
     obj.size <- napply(names, object.size)
     obj.prettysize <- sapply(obj.size, function(r) prettyNum(r, big.mark = ",") )
     obj.dim <- t(napply(names, function(x)
          as.numeric(dim(x))[1:2]))
     vec <- is.na(obj.dim)[, 1] & (obj.type != "function")
     obj.dim[vec, 1] <- napply(names, length)[vec]
     out <- data.frame(names,obj.type, obj.size,obj.prettysize, obj.dim)
     names(out) <- c("Name","Type", "Size", "PrettySize", "Rows", "Columns")
     if (!alpha)
          out <- out[order(out[["Size"]], decreasing=T), ]
     else
          out <- out[order(out[["Name"]], decreasing=F), ]
     out <- out[c("Name","Type", "PrettySize", "Rows", "Columns")]
     names(out) <- c("Name","Type", "Size", "Rows", "Columns")
     row.names(out)<-NULL
     if (head)
          out <- head(out, n)
     out
}
 
 
#borrowed from Hmisc package
capitalize<-function (string) 
{
     capped <- grep("^[^A-Z]*$", string, perl = TRUE)
     substr(string[capped], 1, 1) <- toupper(substr(string[capped], 
                                                    1, 1))
     return(string)
}