什么参数传递给traceback中的函数?

时间:2013-05-11 01:01:11

标签: r debugging

在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文件。我认为这是字节编译的东西。

2 个答案:

答案 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)