RPackage003---tryCatch和log4r生成报错日志

Intro

工作中实际接触到的，记录下~实际编程中似乎常用，我这个调包党还是有点low呀

Code

# 利用tryCatch和log4r包记录报错信息 -------------------------------------------------
#把报错信息储存在全局变量problem中
tryCatch({
  for (i in 1:10) {
    j = j + 1
    print(10)
  }
},
error = function(e) {
  problem <<- conditionMessage(e)　＃conditionMessage是错误详情
})
#写到日志中
#创建日志
# 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) <- 'myfirst.log'
# Set the current level of the logger.
#必须先指定类型，再写入具体信息
level(logger) <- "INFO"
info(logger, problem)

---

Result

---

Ref

[1] R语言-处理异常值或报错的三个示例