#创建日志# 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-0711:02:15 ] ERROR57402Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:15 ] ERROR601122208Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:16 ] ERROR610073362Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:17 ] ERROR2871Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:17 ] ERROR121356Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:17 ] ERROR510673877Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:18 ] ERROR510674618Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:18 ] ERROR510184634Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:18 ] ERROR163800Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:19 ] ERROR510669287Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:19 ] ERROR130170Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:20 ] ERROR611990529Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:20 ] ERROR510677183Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:20 ] ERROR610524655Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:21 ] ERROR611638191Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:21 ] ERROR610519417Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:21 ] ERROR611782344Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:21 ] ERROR611646198Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:22 ] ERROR612671577Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:22 ] ERROR600010861Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:23 ] ERROR10025967Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:23 ] ERROR510662534Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:23 ] ERROR10018392Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:24 ] ERROR510668828Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:24 ] ERROR510676115Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:25 ] ERROR10025424Errorin peaktrain(mp_id[x]): not enough train data!
[ 2015-08-0711:02:25 ] ERROR510669584Errorin peaktrain(mp_id[x]): not enough train data!
#创建日志# 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'#