为何invisible()返回的对象需两次调用才会打印？

首先得帮你理清两个核心点，这应该能解释你遇到的“两次调用才显示”的困惑：

1. 为什么会出现这种“两次调用”的错觉？ #

你遇到的问题其实和invisible()关系不大，核心是data.table的引用修改特性，以及你对invisible()作用的误解：

• data.table默认是引用传递：当你在函数里执行DT[, :=(pos = NA, return = NA )]时，已经直接修改了传入的原对象sample.data——这个修改是即时生效的，不需要依赖return()语句。
• invisible()的唯一作用：只是让函数的返回值不会在控制台自动打印（比如直接运行example(sample.data)时，控制台不会输出DT的内容），但它完全不会影响原对象的修改状态，也不会导致你需要两次调用原对象才能看到变化。

你觉得“需要两次调用”，大概率是这两种情况：

• 控制台临时的显示缓存：偶尔R控制台会有刷新延迟，第一次输入对象名时没显示最新状态，重新输入就正常了。
• 误解了返回值的作用：你可能以为要通过函数的返回值获取修改后的对象，但实际上原对象已经被直接修改了，不需要额外操作。

2. 如何实现你的需求？ #

你的目标是：满足条件时提前终止函数，返回不可见的对象副本，且原对象修改后首次调用就能显示。你的代码逻辑其实是对的，只需要做一点优化，让逻辑更清晰：

方案1：保留引用修改（默认行为） #

因为data.table的:=操作会返回原对象的引用，你可以简化代码，同时保证原对象被修改，且函数返回不可见副本：

example <- function(DT) {
  # 检查条件，不满足交易信号则提前终止
  if (!(1 %in% DT$RSI.verticalBottom) | !(1 %in% DT$RSI.top)) {
    # 直接修改原对象，同时返回不可见的副本
    return(invisible(DT[, `:=`(pos = NA, return = NA )]))
  }
  
  # 这里写满足条件时的正常逻辑...
}

使用时：

example(sample.data)
# 第一次调用原对象就能看到修改后的pos和return列
sample.data

方案2：避免修改原对象（创建副本） #

如果你不想修改原数据，而是返回一个独立的不可见副本，可以用copy()函数创建原对象的副本，修改后返回：

example <- function(DT) {
  # 复制原对象，避免修改原始数据
  DT_copy <- copy(DT)
  
  if (!(1 %in% DT_copy$RSI.verticalBottom) | !(1 %in% DT_copy$RSI.top)) {
    DT_copy[, `:=`(pos = NA, return = NA )]
    return(invisible(DT_copy))
  }
  
  # 正常逻辑...
}

使用时需要赋值获取结果：

# 赋值后，第一次打印就能看到结果
result <- example(sample.data)
result

验证修改是否生效 #

如果你还是不确定修改是否即时生效，可以用str()函数检查对象结构，它会准确显示对象的最新状态：

example(sample.data)
# 第一次调用就能看到pos和return列已添加
str(sample.data)

内容的提问来源于stack exchange，提问作者uncool