如何将R6类元素高效合并为tibble？含动态实现问询

问题1：当前方法是否为最优方案？ #

当前手动逐个指定变量的方案在变量数量少的时候可以用，但面对30+变量的场景绝对不是最优解——不仅手动复制效率极低，还容易出现拼写错误，后期新增、删除变量时的维护成本也很高，完全不符合生产级Shiny应用强调的可维护性原则。

问题2：能否更动态地创建tibble？ #

当然可以，下面提供两种实用的动态实现方式：

方法1：自动筛选类中向量型成员变量 #

通过ls(self)获取类的公共成员，筛选出向量类型的变量（排除方法和非向量变量），再批量组合成tibble：

library(R6)
library(tibble)
library(purrr)

Stack_Overflow <- R6Class(
  classname = "Stack_Overflow_example",
  
  public = list(
    vec1 = c(1, 2, 3),
    vec2 = c(4, 5, 6),
    vec3 = c(7, 8, 9),
    # 测试用非向量变量，会被自动排除
    non_vec = "test_text",
    
    form_tibble = function() {
      # 获取所有公共成员名称
      all_members <- ls(self)
      # 筛选出向量类型且非函数的成员
      target_members <- all_members[sapply(all_members, function(mem) {
        is.vector(self[[mem]]) && !is.function(self[[mem]])
      })]
      # 批量提取变量并转换为命名列表
      vec_list <- purrr::map(target_members, ~self[[.]])
      # 变量名格式转换：vec1 → vec_1（不需要可删除此行）
      names(vec_list) <- gsub("vec(\\d)", "vec_\\1", names(vec_list))
      # 转换为tibble
      as_tibble(vec_list)
    }
  )
)

调用测试：

example <- Stack_Overflow$new()
example$form_tibble()

# 输出结果：
# # A tibble: 3 × 3
#   vec_1 vec_2 vec_3
#   <dbl> <dbl> <dbl>
# 1     1     4     7
# 2     2     5     8
# 3     3     6     9

方法2：提前定义目标变量清单（更可控） #

如果需要精准控制哪些变量纳入tibble，可在类的私有成员中存储目标变量名，再动态生成：

library(R6)
library(tibble)
library(purrr)

Stack_Overflow <- R6Class(
  classname = "Stack_Overflow_example",
  
  public = list(
    vec1 = c(1, 2, 3),
    vec2 = c(4, 5, 6),
    vec3 = c(7, 8, 9),
    # 不需要纳入的变量
    temp_vec = c(0,0,0),
    
    form_tibble = function() {
      # 从私有成员获取目标变量名
      target_names <- private$target_vecs
      # 批量提取变量
      vec_list <- purrr::map(target_names, ~self[[.]])
      # 变量名格式转换
      names(vec_list) <- gsub("vec(\\d)", "vec_\\1", target_names)
      as_tibble(vec_list)
    }
  ),
  
  private = list(
    # 明确指定要纳入tibble的变量
    target_vecs = c("vec1", "vec2", "vec3")
  )
)

这种方式的优势是可以避免误纳入临时变量或不需要的向量，更适合生产环境的严谨性要求。

补充说明 #

• 两种方法都能解决大量变量的手动复制问题，可根据场景选择：方法1适合所有向量变量都需要纳入的情况，方法2适合需要精准控制的场景
• 变量名格式转换的gsub语句可根据实际需求调整或删除
• 该实现符合《Engineering Production-Grade Shiny Apps》中分离业务逻辑与界面的原则：数据组装逻辑封装在R6类内部，Shiny界面只需调用form_tibble()即可获取数据，模块复用性更强

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