18

data.tableをデータセットとして使用し、 を使用して参照によって割り当てる関数がいくつかあるパッケージを作成中です:=。

私のデモンストレーションのために簡単なパッケージを作成しましたproblem

 library(devtools)
 install_github('foo','mnel')

2つの機能が含まれています

foo <- function(x){
  x[, a := 1]
}
fooCall <- function(x){
  eval(substitute(x[, a :=1]),parent.frame(1))
}

およびデータセット (遅延ロードされていない)DTを使用して作成された

DT <- data.table(b = 1:5)
save(DT, file = 'data/DT.rda')

このパッケージをインストールすると、foo(DT)内で参照によって割り当てる必要があると理解していますDT。

 library(foo)
 data(DT)
 foo(DT)
   b a
1: 1 1
2: 2 1
3: 3 1
4: 4 1
5: 5 1

# However this has not assigned by reference within `DT`

DT
   b
1: 1
2: 2
3: 3
4: 4
5: 5

もっと使えばcorrect 

tracmem(DT)
DT <- foo(DT)
# This works without copying
DT 
 b a
1: 1 1
2: 2 1
3: 3 1
4: 4 1
5: 5 1
untracemem(DT)

関数内でevalandを使用する場合substitute

fooCall(DT)
   b a
1: 1 1
2: 2 1
3: 3 1
4: 4 1
5: 5 1
# it does assign by reference 
DT
   b a
1: 1 1
2: 2 1
3: 3 1
4: 4 1
5: 5 1

私は固執するべきですか

  1. DT <- foo(DT)またはeval/substituteルート、または
  2. data怠け者でなくても、データセットをロードする方法について理解していないことがありますか?
4

2 に答える 2

10

これは、データセットやロックとは何の関係もありません。

DT<-unserialize(serialize(data.table(b = 1:5),NULL))
foo(DT)
DT

data.tableでの最初のアクセス時にオブジェクト内に extptr を再作成する必要があるという事実に関係していると思われますDTが、コピーでそうしているため、グローバル環境で元のオブジェクトと変更を共有する方法はありません.

[マシューより] そうですね。

DT<-unserialize(serialize(data.table(b = 1:3),NULL))
DT
   b
1: 1
2: 2
3: 3
DT[,newcol:=42]
DT                 # Ok. DT rebound to new shallow copy (when direct)
   b newcol
1: 1     42
2: 2     42
3: 3     42

DT<-unserialize(serialize(data.table(b = 1:3),NULL))
foo(DT)
   b a
1: 1 1
2: 2 1
3: 3 1
DT                 # but not ok when via function foo()
   b
1: 1
2: 2
3: 3



DT<-unserialize(serialize(data.table(b = 1:3),NULL))
alloc.col(DT)      # alloc.col needed first
   b
1: 1
2: 2
3: 3
foo(DT)
   b a
1: 1 1
2: 2 1
3: 3 1
DT                 # now it's ok
   b a
1: 1 1
2: 2 1
3: 3 1

または、関数に渡さずDT、直接参照してください。データベースのように使用data.table: のいくつかの固定名テーブル.GlobalEnv。

DT <- unserialize(serialize(data.table(b = 1:5),NULL))
foo <- function() {
   DT[, newcol := 7]
}
foo()
   b newcol
1: 1      7
2: 2      7
3: 3      7
4: 4      7
5: 5      7
DT              # Unserialized data.table now over-allocated and updated ok.
   b newcol
1: 1      7
2: 2      7
3: 3      7
4: 4      7
5: 5      7
于 2013-03-04T18:07:05.363 に答える
4

もう 1 つの解決策はinst/extdata、rdaファイル (任意の数の data.table オブジェクトを含む) を保存し、サブディレクトリDT.r内にファイルを作成することです。data

# get the environment from the call to `data()`
env <- get('envir', parent.frame(1))
# load the data
load(system.file('extdata','DT.rda', package= 'foo'), envir = env)
# overallocate (evaluating in correct environment)
if(require(data.table)){
# the contents of `DT.rda` are known, so write out in full
  evalq(alloc.col(DT), envir = env)

}
# clean up so `env` object not present in env environment after calling `data(DT)`
rm(list = c('env'), envir = env)



}
于 2013-03-05T00:40:57.797 に答える