r - dplyr 中空分组数据框/tibble 的构造函数

Question

你知道一种方法来构造一个空的grouped data.frame或tibbleindplyr吗？

对于自定义类的构造函数，这是我能想到的最好的方法grouped_df，但我不喜欢它，因为结果实际上不是真的grouped_df.

library(dplyr)
new_df_custom_grouped <- function(x = group_by(tibble())) {
  # stopifnot(is_grouped_df(x))
  structure(x, 
    class = c("tbl_df_custom_grouped", "tbl_df_custom", class(x)))
}

动机

为了使我的代码符合整洁的代码原则，我查看了 Advanced R 书中关于 S3 类的构造函数的部分。

要dplyr::group_by()在使用有关包的 S3 向量的文章中列出的转换方法时定义自定义方法，我需要一个自定义分组数据框的构造函数（如果您对详细信息感兴趣，请参阅GitHub 问题 #155 ）。vctrsvctrs