diff options
Diffstat (limited to 'util.R')
-rw-r--r-- | util.R | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -0,0 +1,15 @@ +# util.R +# +# Assorted utilities. + +# Creates a directory at given path, optionally logging the action. +# If it already exists, the directory is not created. +dir.create.safe <- function(path, log=T) { + if (!dir.exists(path)) { + if (log) { + loginfo("Creating directory: %s", path) + } + + dir.create(path) + } +} |