--- a
+++ b/archives/RadETL/R/StandardIO.R
@@ -0,0 +1,68 @@
+# Paste Functions..
+pasteSep <- function(sep) {
+  function(...) {
+    paste(..., sep = sep)
+  }
+}
+
+# Paste String Lists...
+pasteNormal = pasteSep("")
+pasteSpacing = pasteSep(" ")
+pastePath = pasteSep("/")
+pasteSQL = pasteSep(".")
+
+# Create directory...
+createDir <- function(savePathRoot, path) {
+  dirPath <- Reduce(pastePath, c(savePathRoot, path))
+  if(!dir.exists(dirPath)) {
+    dir.create(path = dirPath, recursive = TRUE, mode = "0755")
+    msg <- c(Sys.time(), " -> Created Dir: ", dirPath)
+    print(Reduce(pasteNormal, msg))
+  }
+}
+
+# String equals Method,,
+equals <- function(str1, str2) {
+  if(is.null(str1))
+    stop("NPE...")
+  else if(pmatch(str1, str2, nomatch = FALSE) == 1) TRUE else FALSE
+}
+
+# Covert DateTime format
+getDateTime <- function(date, time) strptime(Reduce(pasteNormal, c(date, time)), format="%Y%m%d%H%M%OS")
+
+# Convert Date format
+getDate <- function(date) as.Date(date, format="%Y%m%d")
+
+# Caculate during time..
+getDiffTime <- function(before, after, units = "secs") {
+  options(digits = 3)
+  difftime(after, before, units = units)
+}
+
+as.float <- function(x, digits) {
+  options(digits = digits)
+  ret <- as.numeric(x)
+  options(digits = 1)
+  return(ret)
+}
+
+as.bigint <- function(x, scipen) {
+  options(scipen = scipen)
+  ret <- as.numeric(x)
+  return(ret)
+}
+
+getOS <- function() {
+  sysinf <- Sys.info()
+  if(!is.null(sysinf)) {
+    os <- sysinf['sysname']
+    os <- switch(os, Darwin = 'osx', Linux = 'Linux', 'cpm')
+  } else {
+    os <- .Platform$OS.type
+    if(grepl("^darwin", R.version$os)) os <- 'osx'
+    else if(grepl("^linux-gnu", R.version$os)) os <- 'Linux'
+    else os <- 'cpm'
+  }
+  return(os)
+}