Đây là một followup để trả lời @ chrispy của trên, nơi ông đã trình bày một hàm withJavaLogging. Tôi nhận xét rằng giải pháp của ông là truyền cảm hứng, nhưng đối với tôi, bị tàn phá bởi một số đầu ra ở đầu của dấu vết ngăn xếp mà tôi không muốn thấy.
Để minh họa, hãy xem xét mã này:
f1 = function() {
# line #2 of the function definition; add this line to confirm that the stack trace line number for this function is line #3 below
catA("f2 = ", f2(), "\n", sep = "")
}
f2 = function() {
# line #2 of the function definition; add this line to confirm that the stack trace line number for this function is line #4 below
# line #3 of the function definition; add this line to confirm that the stack trace line number for this function is line #4 below
stop("f2 always causes an error for testing purposes")
}
Nếu tôi thực thi các dòng withJavaLogging(f1()) tôi nhận được đầu ra
2017-02-17 17:58:29.556 FATAL f2 always causes an error for testing purposes
at .handleSimpleError(function (obj)
{
level = sapply(class(obj), switch, debug = "DEBUG", message = "INFO", warning = "WARN", caughtError = "ERROR", error = if (stopIsFatal)
"FATAL"
else "ERROR", "")
level = c(level[level != ""], "ERROR")[1]
simpleMessage = switch(level, DEBUG = , INFO = TRUE
at #4: stop("f2 always causes an error for testing purposes")
at f2()
at catA.R#8: cat(...)
at #3: catA("f2 = ", f2(), "\n", sep = "")
at f1()
at withVisible(expr)
at #43: withCallingHandlers(withVisible(expr), debug = logger, message = logger, warning = logger, caughtError = logger, error = logger)
at withJavaLogging(f1())
Error in f2() : f2 always causes an error for testing purposes
Tôi không muốn để thấy rằng at .handleSimpleError(function (obj) dòng tiếp theo là mã nguồn của hàm logger được định nghĩa bên trong hàm withJavaLogging. Tôi đã nhận xét ở trên rằng tôi có thể ngăn chặn đầu ra không mong muốn đó bằng cách thay đổi trace = trace[length(trace):1] thành trace = trace[(length(trace) - 1):1]
Để có sự tiện lợi của bất kỳ ai khác đọc đây, đây là phiên bản hoàn chỉnh của chức năng mà tôi đang sử dụng (được đổi tên từ withJavaLogging to logFully) để phù hợp với sở thích đọc của tôi):
logFully = function(expr, silentSuccess = FALSE, stopIsFatal = TRUE) {
hasFailed = FALSE
messages = list()
warnings = list()
logger = function(obj) {
# Change behaviour based on type of message
level = sapply(
class(obj),
switch,
debug = "DEBUG",
message = "INFO",
warning = "WARN",
caughtError = "ERROR",
error = if (stopIsFatal) "FATAL" else "ERROR",
""
)
level = c(level[level != ""], "ERROR")[1]
simpleMessage = switch(level, DEBUG = TRUE, INFO = TRUE, FALSE)
quashable = switch(level, DEBUG = TRUE, INFO = TRUE, WARN = TRUE, FALSE)
# Format message
time = format(Sys.time(), "%Y-%m-%d %H:%M:%OS3")
txt = conditionMessage(obj)
if (!simpleMessage) txt = paste(txt, "\n", sep = "")
msg = paste(time, level, txt, sep = " ")
calls = sys.calls()
calls = calls[1:length(calls) - 1]
trace = limitedLabels(c(calls, attr(obj, "calls")))
if (!simpleMessage && length(trace) > 0) {
trace = trace[(length(trace) - 1):1]
msg = paste(msg, " ", paste("at", trace, collapse = "\n "), "\n", sep = "")
}
# Output message
if (silentSuccess && !hasFailed && quashable) {
messages <<- append(messages, msg)
if (level == "WARN") warnings <<- append(warnings, msg)
} else {
if (silentSuccess && !hasFailed) {
cat(paste(messages, collapse = ""))
hasFailed <<- TRUE
}
cat(msg)
}
# Muffle any redundant output of the same message
optionalRestart = function(r) { res = findRestart(r); if (!is.null(res)) invokeRestart(res) }
optionalRestart("muffleMessage")
optionalRestart("muffleWarning")
}
vexpr = withCallingHandlers(withVisible(expr), debug = logger, message = logger, warning = logger, caughtError = logger, error = logger)
if (silentSuccess && !hasFailed) {
cat(paste(warnings, collapse = ""))
}
if (vexpr$visible) vexpr$value else invisible(vexpr$value)
}
Nếu tôi thực thi các dòng logFully(f1()) tôi nhận được đầu ra tôi mong muốn, mà chỉ đơn giản là
2017-02-17 18:05:05.778 FATAL f2 always causes an error for testing purposes
at #4: stop("f2 always causes an error for testing purposes")
at f2()
at catA.R#8: cat(...)
at #3: catA("f2 = ", f2(), "\n", sep = "")
at f1()
at withVisible(expr)
at logFully.R#110: withCallingHandlers(withVisible(expr), debug = logger, message = logger, warning = logger, caughtError = logger, error = logger)
at logFully(f1())
Error in f2() : f2 always causes an error for testing purposes
Nhắc tôi về gói 'evaluation' của Hadley, mặc dù tôi khá chắc chắn rằng không làm theo dõi ngăn xếp. Tuy nhiên, tôi chưa thấy nó được đề cập ở đây, và nó chắc chắn có thể hữu ích cho những người không cần toàn bộ cơ chế mà bạn cung cấp ở đây. – Aaron
Công việc tuyệt vời! BTW: Mục đích của việc thêm thuộc tính "calls" qua 'restrictedLabels (c (gọi, attr (obj," calls "))) là gì? Khi tôi kiểm tra các thuộc tính '(obj)' tôi chỉ tìm thấy một thuộc tính có tên là "call" (số ít!) ... –
@RYoda Weird, đã làm việc cho tôi khi tôi viết nó. Sau đó, một lần nữa, R không phải là ngôn ngữ nhất quán nhất trên hành tinh. –