Update file settings and cleanup

deleted plotdir fns

1 files changed, 0 insertions, 28 deletions

diff --git a/file settings and cleanup b/file settings and cleanup
index a26bc0b..f62b1ce 100644
--- a/file settings and cleanup
+++ b/file settings and cleanup
@@ -1,4 +1,3 @@
-
 #######################################################################
 #   clean a path and unlist it (for setDir())
 #     - expects Windows backslashes '\'
@@ -17,33 +16,6 @@ justFile <- function(x) {
     return(fname)
 }
 
-#######################################################################
-#   this one allows you to use shortcuts (nicer file picker)
-setDir <- function(){
-  x <- cleanPath()                        # list of path + filename
-  y <- x$pos[length(x$pos)]                       # just the last one
-	y <- substring(x$path, 1, y-1)               # the directory!
-	setwd(y)
-	print(sprintf('working Dir set to %s', getwd()))
-	return(y)
-}
-
-#######################################################################
-#       yymmdd date format
-yymmdd <- function(thisDate = Sys.Date()){
-  return(format(thisDate, '%y%m%d'))
-}
-#######################################################################
-#		    creates a new subdirectory, defaulting to the current date
-#         - subdirectory of a directory called 'plot'
-#         - So if you are creating lots of plots they are collected by date
-plotDir <- function(pdir = 'plot', ...){
-	plot_dir <- paste(pdir, '/', yymmdd(...), sep='')
-	dir.create(plot_dir, rec=T)
-	return(plot_dir)
-}
-
-
 
 #######################################################################
 #  nukem - erase all objects (after asking nicely)