在使用group by和summarize后，如何获取tibble的标题？

library(dplyr)

# 创建一个示例数据框
df <- tibble(
  group = c("A", "A", "B", "B"),
  value = c(1, 2, 3, 4)
)

# 使用group by和summarize进行分组和汇总
summary <- df %>%
  group_by(group) %>%
  summarize(total = sum(value))

# 获取tibble的标题
titles <- names(summary)

# 打印标题
print(titles)

[1] "group" "total"