Support file logging rollover

[wassimz]

Hi, Thanks for this great add-on.

Is it possible to support daily/periodically file logging rollover like other language logging framework (for example log4j)

Thanks

[muxspace]

Hiya, Yes it is possible to do log rotation. I don't have time to implement that at the moment. It shouldn't be that hard. Really all you need to do is check the timestamp of the file and move it after a certain age. Probably the biggest issue would be performance. If you implement it, please submit a pull request.

[giko45]

see below for rolling file appender

use with

flog.appender(appender.rollingfile('/data/log/meta.log',20))

implementation

appender.rollingfile<-function (file,size_Mb) {
     if (file.exists(file) && file.size(file) > size_Mb*1024*1024) {
          last = sprintf("%s.%i" ,file,10)
          if (file.exists(last)) file.remove(last)
          for   (i in 9:1) {
               from = sprintf("%s.%i" ,file,i)
               to   = sprintf("%s.%i" ,file,i+1)
               if (file.exists(from)) file.rename(from,to)
          }
          file.rename(sprintf("%s" ,file),sprintf("%s.%i" ,file,1))
     }
     function(line) cat(line, file = file, append = TRUE, sep = "")
}