diff options
Diffstat (limited to 'file settings and cleanup')
| -rw-r--r-- | file settings and cleanup | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/file settings and cleanup b/file settings and cleanup index f62b1ce..7c7e5ba 100644 --- a/file settings and cleanup +++ b/file settings and cleanup @@ -16,6 +16,41 @@ justFile <- function(x) { return(fname) } +####################################################################### +# heading - take a string and print it out with underline +# Useful for formatting output text files +# +headingFunc <- function(string, ul='=', caps=T){ + if(length(string) != 1) string <- 'Error in headingFunc' + if(class(string) != 'character') string <- as.character(string) + if(caps) string <- toupper(string) + cat('\n', string, '\n', sep='') + reps <- floor(nchar(string) / nchar(ul)) + filler <- substr(ul, 1, (nchar(string) %% nchar(ul))) + cat(rep(ul, reps), filler, '\n\n', sep='') +} + +############ handy for debugging ##################################### +####################################################################### +# unWarn - set options() +unWarn <- function() options( warn = -1) +####################################################################### +# Warn - set options() +warn <- function() options( warn = 0) + +####################################################################### +# sort of created by mistake when Joe typed htail +# prints the head and tail of a datframe or array. +# -- separates head from tail with a row of '...' (can be buggy) +# you can pass in lengths for head and tail if you want to. +htail <- function(x, min_obs=15, ...){ + if(dim(x)[1] < min_obs) return(x) + hd <- head(x, ...) + tl <- tail(x, ...) + dots <- rep('...', ncol(x)) + res <- rbind(hd, '...'=dots, tl) + return(res) +} ####################################################################### # nukem - erase all objects (after asking nicely) |