X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=trunk%2FR%2Flog.R;h=e77703c48e3d11ea6a87de87232a77add5280772;hb=584ff51878130d2e31ad0da3d2a37768f139c552;hp=3d74bae7221123116434b59d94747fdb38bdd532;hpb=f2d6fd8670ba382cba7d1c27e148c4d3487d4e2c;p=cran2deb.git

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)
 }