output time in log

diff --git a/trunk/R/log.R b/trunk/R/log.R
index 3d74bae7221123116434b59d94747fdb38bdd532..e77703c48e3d11ea6a87de87232a77add5280772 100644 (file)
--- 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)
 }