From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 19 Jun 2015 19:46:18 +0000 (-0700)
Subject: output time in log
X-Git-Url: https://git.donarmstrong.com/?p=cran2deb.git;a=commitdiff_plain;h=584ff51878130d2e31ad0da3d2a37768f139c552

output time in log
---

diff --git a/trunk/R/log.R b/trunk/R/log.R
index 3d74bae..e77703c 100644
--- a/trunk/R/log.R
+++ b/trunk/R/log.R
@@ -6,7 +6,8 @@ log_clear <- function() {
 
 log_add <- function(text,print=T) {
     if (print) {
-        message(text)
+        message(paste(sep="",
+                      "[",strftime(Sys.time(),format="%H:%M:%OS6"),"] ",text))
     }
     assign('log_messages',c(log_messages, text),envir=.GlobalEnv)
 }