関数から返された後にdata.tableオブジェクトが出力されない

Question

data.tableを関数内で修正したいと思います。関数内で:=機能を使用すると、結果は2番目の呼び出しでのみ印刷されます。次の図で

ルック：

私は唯一の関数を呼び出す

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

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

、テーブルには、標準的な動作である（印刷されていないしかし、私は新しいオブジェクトに返さdata.tableを保存した場合。 、それが唯一の1秒間、最初の呼び出しで印刷されていません。

myfunction(mydt) # nothing is printed 
result <- myfunction(mydt) 
result # nothing is printed 
result # for the second time, the result is printed 
mydt                  
# x y z 
# 1: 1 5 4 
# 2: 2 6 4 
# 3: 3 7 4 

この問題が発生し、それを防ぐために、どのように、なぜあなたは説明してもらえますか？

Answer 1

がcommentに記載されているように、答えはhereであることがわかります。バージョン1.9.6に修正された不具合がありましたが、この不具合が修正されました。

この現象を防ぐには、関数の最後に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 

Answer 2

私は 答えではないのですが、私のポストはコメントのために長すぎるここで何かを掲示することになっていないよ場合はごめんなさい。

私は以下のように行うdtに[]末尾 を追加するjanosdivenyiのソリューションは、常に期待される結果（でも data.table 1.9.6または1.10.4を使用して）与えないことを指摘したいと思います。次いで

dtが最後の行である場合、関数に つ[]末尾 の存在なしに、所望の動作を得ることを示し、以下の実施例が、dt関数の最後の行にない場合 末尾[]所望の挙動を得るために必要である。 dtが機能dt上[]末尾予期しない動作を与える追加

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 

の最後の行にあるときに

最初の例ではありませんが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の後に移動させて、末尾に[]を指定すると、unexpecテッド 行動末尾[]と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 

が期待 行動

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