knitr 被 data.table '：=' 赋值欺骗

2014 年 10 月更新。现在在 data.table v1.9.5 中：

:=不再打印以与提示符 #505 下的行为保持一致。测试的输出现在位于 data.table 的单元测试中。knitrknit("knitr.Rmd")

及相关：

if (TRUE) DT[,LHS:=RHS]现在不打印（感谢 Jureiss，#869）。添加了测试。为了让它工作，我们不得不忍受一个缺点：如果在函数末尾之前没有使用a，那么下次在提示符下键入时，不会打印任何内容。重复打印。为避免这种情况：在函数的最后一个之后包含一个。如果这是不可能的（例如，它不是您可以更改的功能），则保证在提示符下打印。和以前一样，在查询末尾添加额外的内容是建议更新然后打印的习惯用语;例如:=DT[]DTDTDT[]:=print(DT)DT[][]:=> DT[,foo:=3L][]

---

---

以前的答案留给后代（从 data.table v1.9.5 开始，业务不再完成，所以这不再是真的）......global$depthtrigger

为了清楚起见，我当时明白：在你不想要的时候打印。knitr

尝试在脚本开头增加一点。data.table:::.global$depthtrigger

目前，这将是 3 个：

data.table:::.global$depthtrigger
[1] 3

我不知道评估深度为堆栈增加了多少。但请先尝试将触发器更改为 4;即knitr

assign("depthtrigger", 4, data.table:::.global)

在脚本的末尾，确保将其设置回 3。如果 4 不起作用，请尝试 5，然后尝试 6。如果你到了 10 岁，就放弃，我会再想一想。8-3knitr

为什么会这样？

查看 v1.8.4 的新闻：

DT[,LHS:=RHS,...]不再打印 .这实现了 #2128 “尝试 再次无形地返回”。感谢这里的讨论：
在 v1.8.3 之前，在 R {data.table} 中使用“：=”时如何抑制输出？
http://r.789695.n4.nabble.com/Avoiding-print-when-using-tp4643076.html
常见问题 2.21 和 2.22 已更新。DTDT[i,j:=value]

FAQ 2.21 为什么 DT[i，col：=value] 返回整个 DT？我期望没有可见值（与<-一致），或者消息或返回 包含已更新行数的值。并不明显的是 数据确实已通过参考进行更新。
这在 v1.8.3 中发生了变化 以满足您的期望。请升级。返回整个 DT （现在是看不见的）以便复合语法可以工作;例如， DT[i，done：=TRUE][，sum（done）]。返回更新的行数 当详细程度处于打开状态时，可以基于每个查询，也可以全局使用 选项（datatable.verbose=TRUE）。

FAQ 2.22 好的，谢谢。DT[i，col：=value] 的结果被无形地返回有什么困难？
R 内力 可见性 [.FunTab 的 eval 列的值（请参阅 src/main/names.c） for [ is 0 表示强制R_Visible开启（参见 R-Internals 第 1.6 节）。因此，当我们尝试 invisible（） 或 直接将 R_Visible 设置为 0，在 src/main/eval.c 中评估 会再次强制它。要解决这个问题，关键是停止 尝试停止在 ：= 之后运行的 print 方法。相反，在里面：= 我们现在（从 v1.8.3 开始）设置了一个全局标志，print 方法用于 知道是否实际打印。

该全球标志是 .在顶部，你会看到它看着它。这是因为没有已知的方法可以禁止打印（如FAQ 2.22所解释的那样）。data.table:::.global$printdata.table:::print.data.table[

因此，在内部，它看起来可以看到这个调用有多“深”：:=[.data.table

if (Cstack_info()[["eval_depth"]] <= .global$depthtrigger) {
    suppPrint = function(x) { .global$print=FALSE; x }
    # Suppress print when returns ok not on error, bug #2376.
    # Thanks to: https://stackoverflow.com/a/13606880/403310
    # All appropriate returns following this point are
    # wrapped i.e. return(suppPrint(x)).
}

本质上只是说：如果在提示符下运行，那么我知道 REPL 将对我的结果调用该方法，这超出了我的控制范围。好的，所以给定方法将要运行，我将通过设置一个标志在该方法中抑制它（因为运行的方法（即）是我可以控制的）。DT[,x:=y]printprintprintprintprint.data.table

在这种情况下，它以一种巧妙的方式模拟了 REPL。它不是真正的脚本，iiuc，否则无论如何都不会打印。但是，由于它是通过 模拟 REPL 的，因此从 运行的代码具有额外的深度。或类似的东西（我不知道）.knitrDT[,x:=y]evalevalknitrknitr

这就是为什么我认为增加力量可以解决问题。depthtrigger

骇人听闻/粗鲁，我同意。但是，如果它有效，并且您让我知道哪个值有效，我可以更改为意识到并自动更改。或者任何更好的解决方案都是最受欢迎的。data.tableknitrdepthtrigger

我遇到了同样的问题，通过重新分配变量，我相当容易地解决了它。就您而言：

DT <- DT[, ':=' (c, 5)]

不过，它有点冗长，特别是如果变量名称很大。

为什么不直接使用：

```{r, results='hide'}
DT[, c:=5]
```

只需用 invisible（） 将表达式括起来即可。这对我有用。

对于在 2017 年使用 RMarkdown 1.3 和 data.table 1.10 或类似版本返回此错误的任何人来说，此错误再次出现，如下所示 此处

随后在 RMarkdown 1.4 中修复了此问题