Function to create metadata object

makeMetadata.R

makeMetadata <- function(D, note=NULL) {
  if (is.data.frame(D)) {
    list(objectName = deparse(substitute(D)),
         timeStamp = sprintf("%s", Sys.time()),
         objectSize = format(object.size(D), units="auto"),
         note = note,
         rowCount = nrow(D),
         colCount = ncol(D),
         colNames = names(D),
         colClasses = sapply(D, class),
         sysInfo = Sys.info(),
         sessionInfo = sessionInfo())
  } else {
    warning(sprintf("Object %s is not a data.frame", deparse(substitute(D))))
  }
}

# Examples:
# makeMetadata(cars)
# x <- 1
# makeMetadata(x)  # Returns a warning