实现类似tibble::tibble()的自定义函数遇类型绑定问题求助

要实现类似tibble::tibble()的函数，核心是理解tibble的本质：它是一个带有特定类属性的列表，每个列表元素对应一列，同时行名被设置为NULL。输入参数x本身就是由列数据组成的列表，无需额外合并列，只需调整属性即可。

完整实现代码 #

my_tibble <- function(x) {
  # 获取第一列的长度作为行数（用户保证所有列长度一致）
  n_row <- length(x[[1]])
  
  # 设置标准行名，符合data.frame/tibble的行名规范
  attr(x, "row.names") <- .set_row_names(n_row)
  
  # 添加tibble专属类属性，让对象具备tibble的行为
  class(x) <- c("tbl_df", "tbl", "data.frame")
  
  x
}

测试示例 #

my_tb <- my_tibble(list(x=1:3, y=letters[1:3]))
my_tb

执行后输出：

# A tibble: 3 × 2
      x y    
  <int> <chr>
1     1 a    
2     2 b    
3     3 c    

关键逻辑说明 #

• 复用输入列表结构：输入的x已经是按列组织的列表，直接使用即可，不需要重新合并列
• 设置行名：通过attr()给列表添加row.names属性，使用base包的.set_row_names()生成标准行标识
• 添加类属性：给列表赋予"tbl_df", "tbl", "data.frame"三类，这样R会自动调用tibble的打印方法和相关操作，让对象表现得和原生tibble一致

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