Snapshot your R objects on a TSV.

tsvsnap.R

#!/usr/bin/r
TSVSNAP.FILE = paste("snap/", Sys.Date(),".tsv", sep="")
tsvsnap = function(obj, ...){
	UseMethod("tsvsnap")
}
tsvsnap.summary.lm = function(obj) tsvsnap.table( as.table( coefficients( obj ) ) )
tsvsnap.table = function(obj){
	cat("", colnames(obj), file=TSVSNAP.FILE, sep="\t", append=TRUE, "\n")
	rows = rownames(obj)
	row.num = length(rows)
	for( x in 1:row.num ){
		cat(rows[x], obj[x,], file=TSVSNAP.FILE, sep="\t", append=TRUE, "\n")
	}
	cat("\n",file=TSVSNAP.FILE, append=TRUE)
}
tsvsnap.default = function(obj) cat(obj, file=TSVSNAP.FILE, sep="\t", append=TRUE,"\n\n")