r语言 利用log4r和trycatch收集异常日志例子

#创建日志

# Import the log4r package.
library('log4r')

# Create a new logger object with create.logger().
logger <- create.logger()

# Set the logger's file output.
logfile(logger) <- 'peaktrainDebugging.log'

# Set the current level of the logger.
level(logger) <- 'INFO'


tryCatch({
          peaktrain(mp_id[x])
},warning = function(w){
          log4r::warn(logger, paste(mp_id[x],w,sep=' '))
}, error = function(e){
         log4r::error(logger, paste(mp_id[x],e,sep=' '))
}, finally = {

})

[ 2015-08-07 11:02:15 ] ERROR 57402 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:15 ] ERROR 601122208 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:16 ] ERROR 610073362 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:17 ] ERROR 2871 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:17 ] ERROR 121356 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:17 ] ERROR 510673877 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:18 ] ERROR 510674618 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:18 ] ERROR 510184634 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:18 ] ERROR 163800 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:19 ] ERROR 510669287 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:19 ] ERROR 130170 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:20 ] ERROR 611990529 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:20 ] ERROR 510677183 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:20 ] ERROR 610524655 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:21 ] ERROR 611638191 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:21 ] ERROR 610519417 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:21 ] ERROR 611782344 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:21 ] ERROR 611646198 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:22 ] ERROR 612671577 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:22 ] ERROR 600010861 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:23 ] ERROR 10025967 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:23 ] ERROR 510662534 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:23 ] ERROR 10018392 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:24 ] ERROR 510668828 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:24 ] ERROR 510676115 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:25 ] ERROR 10025424 Error in peaktrain(mp_id[x]): not enough train data!

[ 2015-08-07 11:02:25 ] ERROR 510669584 Error in peaktrain(mp_id[x]): not enough train data!