如何不依赖环境存储R源码生成的变量以构建R6类？

方法1：显式返回指定成员列表 #

每个源码文件仅在末尾返回包含需要注入R6的public/private成员的列表，编译脚本直接读取该返回值，完全规避环境变量收集的问题。

示例：公共方法模块文件（public_methods.R） #

# 定义公共方法
init <- function(name) {
  self$name <- name
}

greet <- function() {
  cat(paste0("Hello, ", self$name, "!\n"))
}

# 仅导出需要的成员，中间变量不会被包含
list(
  initialize = init,
  greet = greet
)

示例：私有成员模块文件（private_methods.R） #

# 定义私有工具函数
secret_generator <- function() {
  paste0("SEC_", sample(1:1000, 1))
}

get_secret <- function() {
  private$secret <- secret_generator()
  private$secret
}

# 仅导出私有成员
list(
  get_secret = get_secret,
  secret = NULL  # 初始化私有字段
)

编译脚本（build_class.R） #

library(R6)

# 加载模块并获取导出的成员列表
public_members <- source("public_methods.R", local = TRUE)$value
private_members <- source("private_methods.R", local = TRUE)$value

# 构建R6类
MyClass <- R6Class(
  "MyClass",
  public = public_members,
  private = private_members
)

方法2：用函数封装定义逻辑 #

将模块内的所有定义包裹在一个函数中，函数内部的中间变量不会泄露到外部，仅返回需要的成员列表。这种方式更适合逻辑复杂、存在较多临时变量的模块。

示例：封装后的私有模块（private_utils.R） #

define_private_members <- function() {
  # 中间变量仅在函数内部有效，不会被导出
  temp_key <- "temp_123"
  
  encrypt_name <- function() {
    paste0(temp_key, "_", self$name)
  }
  
  # 返回需要的私有成员
  list(
    encrypt_name = encrypt_name
  )
}

# 执行函数得到成员列表
define_private_members()

编译脚本同样通过source(..., local = TRUE)$value获取成员列表即可。

方法3：基于R6继承的模块化拆分 #

将不同职责的功能拆分为独立的R6基类，通过继承或组合的方式构建最终类。这种方式天然隔离模块间的变量，适合大型项目的分层设计。

示例：基础公共类（base_public.R） #

BasePublic <- R6Class(
  "BasePublic",
  public = list(
    initialize = function(name) {
      self$name <- name
    }
  )
)

示例：扩展公共类（extended_public.R） #

ExtendedPublic <- R6Class(
  "ExtendedPublic",
  inherit = BasePublic,
  public = list(
    greet = function() {
      cat(paste0("Hello, ", self$name, "!\n"))
    }
  )
)

编译脚本构建最终类 #

library(R6)
source("base_public.R")
source("extended_public.R")

# 添加私有成员并生成最终类
MyClass <- R6Class(
  "MyClass",
  inherit = ExtendedPublic,
  private = list(
    secret = NULL,
    get_secret = function() {
      private$secret <- paste0("SEC_", self$name)
      private$secret
    }
  )
)

优势总结 #

• 不需要依赖环境变量筛选，完全避免中间变量（如variable1.1）混入R6类定义
• 每个模块明确控制导出内容，协作时只需约定「模块返回指定结构的列表/R6类」，规则清晰且可强制执行
• 代码结构更清晰，模块职责单一，便于维护和扩展

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