Data.Table 对象在函数中分配了 ：= 未打印

在 1.9.6 版本中修复了一个错误，该错误引入了此缺点（请参阅 NEWS 1.9.6，错误修复 #1）。

应该在函数末尾调用以防止这种行为。DT[]

myfunction <- function(dt) {
    dt[, z := y - x][]
}
myfunction(mydt)  # prints immediately
#    x y z
# 1: 1 5 4
# 2: 2 6 4
# 3: 3 7 4 

这在 data.table FAQ 2.23 中有所描述：

为什么在使用后有时必须键入两次才能将结果打印到控制台？DT:=

这是让 #869 工作的一个不幸的缺点。如果在函数结束前在函数中使用 a，则在函数结束前没有，则下次在提示符下键入时，将不打印任何内容。重复将打印。为避免这种情况：在函数中包含 after the last。如果这是不可能的（例如，它不是您可以更改的功能），那么在提示符下保证打印。和以前一样，在查询末尾添加额外的是建议更新然后打印的习惯用语;例如> .:=DT[]DTDTDT[]:=print(DT)DT[][]:=DT[,foo:=3L][]

很抱歉，如果我不应该在这里发布一些不是 回答，但我的帖子太长了，无法发表评论。

我想指出的是，janosdivenyi 的解决方案是添加一个 尾随并不总是给出预期的结果（即使 使用 data.table 1.9.6 或 1.10.4） 时，如下所示。[]dt

下面的示例显示 if 是函数中的最后一行 一个人在没有 尾随 ，但如果不在函数的最后一行，则 需要尾随才能获得所需的行为。dt[]dt[]

第一个示例表明，在没有尾随的情况下，我们得到 在函数的最后一行时的预期行为[]dtdt

mydt <- data.table(x = 1:3, y = 5:7)

myfunction <- function(dt) {
  df <- 1
  dt[, z := y - x]
}

myfunction(mydt)  # Nothing printed as expected

mydt  # Content printed as desired
##    x y z
## 1: 1 5 4
## 2: 2 6 4
## 3: 3 7 4

添加尾随 on 会产生意外行为[]dt

mydt <- data.table(x = 1:3, y = 5:7)

myfunction <- function(dt) {
  df <- 1
  dt[, z := y - x][]
}

myfunction(mydt)  # Content printed unexpectedly
##    x y z
## 1: 1 5 4
## 2: 2 6 4
## 3: 3 7 4

mydt  # Content printed as desired
##    x y z
## 1: 1 5 4
## 2: 2 6 4
## 3: 3 7 4

移动到没有尾随的 dt 之后会产生意想不到的结果 行为df <- 1[]

mydt <- data.table(x = 1:3, y = 5:7)

myfunction <- function(dt) {
  dt[, z := y - x]
  df <- 1
}

myfunction(mydt)  # Nothing printed as expected

mydt  # Nothing printed unexpectedly

在带有尾随的 dt 之后移动给出预期的 行为df <- 1[]

mydt <- data.table(x = 1:3, y = 5:7)

myfunction <- function(dt) {
  dt[, z := y - x][]
  df <- 1
}

myfunction(mydt)  # Nothing printed as expected

mydt  # Content printed as desired
##    x y z
## 1: 1 5 4
## 2: 2 6 4
## 3: 3 7 4