r - 无环境序列化闭包

Question

我正在使用 serialize 序列化对象功能。

例如

serialize_object <- serialize(some_object, NULL)

现在我遇到了关闭问题。例如:

closure <- function(){
  member <- NULL
  list(init=function(val){member <<- val})
}
closure_serialized <- serialize(closure(), NULL)

这个原始对象closure_serialized非常巨大:大约200MB。我非常确定它的制作环境也是序列化的。但我不需要它的环境。我只需要闭包及其内容。

我做错了什么吗？我是否以错误的方式初始化或定义了闭包？我怎样才能只序列化闭包而不序列化环境的其余部分？从某些包中序列化闭包没有这种效果，而且我找不到罪魁祸首。

Answer 1

这主要是因为闭包的定义是在函数内。

fn <- function(){

    # make big variables

    closure <- function(){
      member <- NULL
      list(init=function(val){member <<- val})
    }

    closure_serialized <- serialize(closure(), NULL)
}

# serialize will copy the environment within the function in closure_serialized
fn()

在这种情况下，serialize 函数也会复制环境。 “解决方法”是将闭包的定义放在全局环境中。

closure <- function(){
  member <- NULL
  list(init=function(val){member <<- val})
}

fn <- function(){

    # make big variables

    closure_serialized <- serialize(closure(), NULL)
}

# serialize will not copy the global environment.
fn()

serialize 不会复制 .GlobalEnv 环境。另请参阅here相关主题。