R Plumber API跨调用序列化/反序列化时列表异常增大问题咨询

问题根因 #

你遇到的序列化体积膨胀问题核心来源于两点：

1. object.size()统计对象大小时不会递归计算对象关联引用的外部环境占用空间，因此你看到反序列化后的oldSize、newSize无变化，但实际对象关联了大量未被统计的冗余环境数据。
2. 调用evaluate()执行用户提交的代码时未指定独立执行环境，生成的lm等对象会持有当前Plumber函数运行时的临时环境引用，该环境包含serOldStarEnv、oldSize、中间运行变量等大量非必要数据。每次修改starenv时，新的临时环境会被关联到starenv内的对象上，R序列化时会递归打包所有关联的环境数据，最终导致序列化后体积成倍增长。

解决方案 #

1. 为evaluate指定隔离执行环境 #

执行用户代码前创建父级为空的独立环境，仅注入需要暴露的starenv变量，执行完成后再取出修改后的starenv，避免关联Plumber函数的临时环境：

# 替换原有evaluate调用逻辑
exec_env <- new.env(parent = emptyenv())
exec_env$starenv <- starenv
result <- evaluate(command, envir = exec_env)
starenv <- exec_env$starenv

2. 剥离对象的不必要环境引用 #

针对存储的模型类对象，递归清理其属性中持有的环境引用，避免冗余数据被序列化：

# 新增通用环境剥离函数
strip_obj_env <- function(obj) {
  # 处理lm类模型
  if (inherits(obj, "lm")) {
    attr(obj$terms, ".Environment") <- emptyenv()
    if (!is.null(obj$model)) {
      attr(terms(obj$model), ".Environment") <- emptyenv()
    }
  }
  # 递归处理列表内所有元素
  if (is.list(obj)) {
    return(lapply(obj, strip_obj_env))
  }
  return(obj)
}

# 序列化前执行清理
starenv <- strip_obj_env(starenv)

3. 可选优化序列化参数 #

使用更新的序列化版本、开启压缩进一步缩小序列化后的体积：

# 替换原有serialize调用
serStarEnv <- rawToChar(serialize(starenv, NULL, ascii = TRUE, version = 3, compress = "gzip"))

修改完成后可验证starenv内对象的关联环境已被替换为空，序列化后的体积不会再出现成倍增长的问题。

内容的提问来源于stack exchange，提问作者ldesio