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