在R中,如果执行因错误而停止,我可以评估traceback()
以查看错误发生在哪个函数,该函数是从哪个函数调用的,等等。它将给出如下内容:< / p>
8: ar.yw.default(x, aic = aic, order.max = order.max, na.action = na.action,
series = series, ...)
7: ar.yw(x, aic = aic, order.max = order.max, na.action = na.action,
series = series, ...)
6: ar(x[, i], aic = TRUE)
5: spectrum0.ar(x)
4: effectiveSize(x)
有没有办法找到传递给这些函数的参数?在这种情况下,我想知道哪些参数传递给effectiveSize()
,即什么是x
。
错误不会出现在我自己的代码中,而是出现在包函数中。作为R的新人,我有点失落。
我不知道如何正确地执行此操作,我试图找到包函数的定义并对其进行修改,但在源文件应该在哪里我只找到.rdb
文件。我认为这是字节编译的东西。
答案 0 :(得分:3)
我建议设置options(error=recover)
,然后再次运行违规代码。这次,当遇到错误时,您将被投入到交互式调试环境中,在该环境中,您可以选择要调查的帧。 外观与traceback()
提供的内容非常相似,只是您可以在调用堆栈中键入7
以进入调用7
的评估环境。输入框架后键入ls()
将为您提供其参数列表。
示例(基于?traceback
中的示例)可能是展示此内容的最佳方式:
foo <- function(x) { print(1); bar(2) }
bar <- function(x) { x + a.variable.which.does.not.exist }
## First with traceback()
foo(2) # gives a strange error
# [1] 1
# Error in bar(2) : object 'a.variable.which.does.not.exist' not found
traceback()
# 2: bar(2) at #1
# 1: foo(2)
## Then with options(error=recover)
options(error=recover)
foo(2)
# [1] 1
# Error in bar(2) : object 'a.variable.which.does.not.exist' not found
#
# Enter a frame number, or 0 to exit
#
# 1: foo(2)
# 2: #1: bar(2)
Selection: 1
# Called from: top level
Browse[1]> ls()
# [1] "x"
Browse[1]> x
# [1] 2
Browse[1]> ## Just press return here to go back to the numbered list of envts.
#
# Enter a frame number, or 0 to exit
#
# 1: foo(2)
# 2: #1: bar(2)
R有许多有用的调试工具,其中大部分都会在几年前的答案to this SO question中讨论。
答案 1 :(得分:2)
您可以使用trace()
将某个功能标记或标记为需要“绕道”另一个功能,逻辑选择为browser()
。
?trace
?browser
> trace(mean)
> mean(1:4)
trace: mean(1:4)
[1] 2.5
所以只显示了这个电话。这个下一个迷你会话显示了实际上已经绕道进入浏览器的痕迹:
> trace(mean, browser)
Tracing function "mean" in package "base"
[1] "mean"
> mean(1:4)
Tracing mean(1:4) on entry
Called from: eval(expr, envir, enclos)
Browse[1]> x #once in the browser you can see what values are there
[1] 1 2 3 4
Browse[1]>
[1] 2.5
> untrace(mean)
Untracing function "mean" in package "base"
只要查看函数中的内容,如果将其导出,只需在控制台中键入其名称即可。如果未导出,请使用:getAnywhere(fn_name)