Я создаю пакет, который использует data.table
в качестве набора данных и имеет несколько функций, которые присваиваются по ссылке с помощью :=
.
Я создал простой пакет, чтобы продемонстрировать мой problem
library(devtools)
install_github('foo','mnel')
Он содержит две функции
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)
Если я использую eval
и 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
Должен ли я придерживаться
-
DT <- foo(DT)
или маршрутeval
/substitute
, или - Есть ли что-то, что я не понимаю о том, как
data
загружает наборы данных, даже если они не ленивы?