r - 需要一种解决方法来复制引用类中的 data.table

Question

我正在尝试在参考类中复制数据表，但我无法这样做。 这是一个小例子

library(data.table)

Example <- setRefClass("Example",
                   fields = list(
                     data1 = "data.table"
                   ),
                   
                   method = list(
                     tryToCopyData1 = function(){
                       data_temp <- copy(data1)
                     }
                     )
                   )

example <- Example$new()

example$data1 <- data.table(x=rep(c("a","b","c"),each=3), y=c(1,3,6), v=1:9)

example$tryToCopyData1()

当我这样做时，我收到以下错误

if (shallow) assign(field, get(field, envir = selfEnv), envir = vEnv) else { : 参数不能解释为逻辑另外：警告消息：在 if (shallow) assign(field, get(field , envir = selfEnv), envir = vEnv) else { : 条件长度 > 1 且仅使用第一个元素

关于如何解决这个问题的任何想法？ 我最终只需要在函数内操作数据表而不更改原始字段值。

Answer 1

您应该使用data.table::copy而不是默认的引用类copy方法：

library(data.table)

Example <- setRefClass("Example",
                       fields = list(
                         data1 = "data.table"
                       ),
                       
                       method = list(
                         tryToCopyData1 = function(){
                           data_temp <- data.table::copy(data1)
                         }
                       )
)

example <- Example$new()

example$data1 <- data.table(x=rep(c("a","b","c"),each=3), y=c(1,3,6), v=1:9)

example$tryToCopyData1()