如何在flextable中用动态列名设置分组列加粗？

要实现用用户选择的动态列名设置分组行加粗，核心是将字符串类型的列名转换为公式中可识别的列引用，以下是两种可行方案：

方案1：字符串拼接生成公式 #

先提取动态列名到变量，再通过字符串拼接生成公式字符串，最后转换为公式对象：

# 提取动态分组列名
group_col <- input[[paste0("options_agg_", input$tabs)]]

ft <- as_grouped_data(filtered_other(), 
                      groups = group_col, 
                      columns = input[[paste0("options_dim_", input$tabs)]]) %>%
  as_flextable() %>%
  # 拼接公式并转换为公式对象
  bold(i = as.formula(paste0("~ !is.na(", group_col, ")")))

htmltools_value(ft)

方案2：用bquote动态构建公式 #

通过bquote结合as.name将字符串列名转换为符号引用，这种方式更严谨，避免字符串拼接的潜在问题：

group_col <- input[[paste0("options_agg_", input$tabs)]]

ft <- as_grouped_data(filtered_other(), 
                      groups = group_col, 
                      columns = input[[paste0("options_dim_", input$tabs)]]) %>%
  as_flextable() %>%
  # 动态构建包含目标列的公式
  bold(i = bquote(~ !is.na(.(as.name(group_col)))))

htmltools_value(ft)

错误原因说明 #

你之前的代码无法运行，是因为在~公式中直接使用input[[paste0(...)]]时，公式会尝试在表格数据的列中寻找名为input[[paste0(...)]]的列，而非引用你传入的动态列名。必须将字符串列名转换为数据框列的直接引用，才能让bold函数正确识别需要加粗的行。

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