在函数内打印或显示变量

Question

有没有办法print 或在函数内部显示变量的值，而不是在函数被调用后在函数外部打印值？

我几乎可以肯定并认为代码被称为 reveal 或类似名称，但我不记得正确的术语。

my.function <- function(x) {

  y <- x^2
 #  reveal(y)
 #  display(y)

 # desired result is to print or display here:
 # [1] 16

  cat(y)
  print(y)
  return(y)  
}

x <- 4

my.function(x)
#16[1] 16
#[1] 16

cat(y)、print(y) 和 return(y) 都在函数外打印。谢谢你的建议。

编辑

我在这里发现了一个类似的问题：

https://stat.ethz.ch/pipermail/r-help/2002-November/027348.html

Peter Dalgaard 对这个问题的回答是取消选中 Misc 选项卡下名为 buffered output 的选项。但是，这似乎不适用于我的情况。也许这些问题是无关的。

Answer 1

我喜欢使用message 函数来打印以进行调试，因为它似乎从它可能发出的任何黑暗深度到达控制台。例如：

somefunc <- function(x) {
       message(paste('ok made it this far with x=',x))
       # some stuff to debug
       message(paste('ok made it this far with x^2=',x^2))
       # some more stuff to debug
       message(paste('ok made it to the end of the function with x^3=',x^3))
}

Answer 2

您可以将print() 调用（或cat() 调用）放在函数内部，如果执行到达该点，那么即使稍后在执行过程中发生错误，也会在控制台上生成输出。 （如果您使用的 IDE 设置为“缓冲输出”，则可能需要 flush.console()。）

 > myf <- function(x){ print(x); y <- x^2; print(y); error() }
> myf(4)
[1] 4
[1] 16
Error in myf(4) : could not find function "error"

使用 browser() 函数作为调试路径可能更优雅。您可以通过更改 options() 来设置它的操作：

> options(error=recover)
> myf(4)
[1] 4
[1] 16
Error in myf(4) : could not find function "error"

Enter a frame number, or 0 to exit   

1: myf(4)

Selection: 1
Called from: top level 
Browse[1]> x
[1] 4
Browse[1]> y
[1] 16
Browse[1]>    # hit a <return> to exit the browser 

Enter a frame number, or 0 to exit   

1: myf(4)

Selection: 0   # returns you to the console

Answer 3

当我问这个问题时，我可能一直在考虑 show 函数，它允许您查看变量的值，而无需在 return 语句中包含该变量。虽然，show 命令在函数之外打印值。

my.function <- function(x) {
     y <- x^2
     show(y)
     show(length(y))
     z <- y + x
     return(z)
}

x <- 1:10

my.function(x)

 # [1]   1   4   9  16  25  36  49  64  81 100
 # [1] 10
 # [1]   2   6  12  20  30  42  56  72  90 110

编辑：2021 年 3 月 19 日

从函数内部查看结果的另一种方法是将对象发送到全局变量。这可能有助于定位函数内部的错误。

my.function <- function(x) {
     y <- x^2
     y <<- y
     z <- y + x
     z <<- z
     return(z)
}
y
#[1]   1   4   9  16  25  36  49  64  81 100
z
#[1]   2   6  12  20  30  42  56  72  90 110
x <- 1:10
my.function(x)
#[1]   2   6  12  20  30  42  56  72  90 110