如何在RShiny中调用外部函数实现动态分组汇总？

1. 编写外部工具脚本（utils.R） #

将分组逻辑和汇总函数封装为可复用的独立函数，避免依赖全局变量：

# 根据选择项生成对应分组列的函数
get_grp <- function(type) {
  switch(type,
         "W" = c("w", "m"),
         "M" = c("m", "y"),
         "Y" = c("y", "w")
  )
}

# 带分组参数的汇总函数
summariser <- function(.data, grp) {
  .data %>% 
    group_by(across(all_of(grp))) %>%
    summarize(n = n(), .groups = "drop") %>%
    group_by(across(grp[1])) %>%
    mutate(mean = mean(n)) %>%
    ungroup()
}

2. 修改Shiny主脚本 #

引入外部工具脚本，根据用户选择动态执行分组汇总：

library(shiny)
library(dplyr)

# 加载外部复用函数
source("utils.R")

# 定义基础数据框
df <- 
  data.frame(
    w = seq(1, 5),
    m = seq(6, 10),
    y = seq(11, 15)
  ) 

ui <- fluidPage(
  titlePanel("Simple Shiny App"),
  sidebarLayout(
    sidebarPanel(
      selectInput("type",
                  "Choose an option",
                  choices = c("W", "M", "Y"))
    ),
    mainPanel(
      tableOutput("dataTable")
    )
  )
)

server <- function(input, output) {
  output$dataTable <- renderTable({
    # 根据用户选择动态获取分组列
    current_grp <- get_grp(input$type)
    # 执行汇总逻辑
    df %>% summariser(grp = current_grp)
  })
}

shinyApp(ui = ui, server = server)

关键调整说明 #

• 将原固定的grp改为函数get_grp，通过参数动态返回分组列，解决Shiny反应式环境中全局变量失效的问题。
• 给summariser新增grp参数，让函数不依赖全局状态，适配Shiny的动态交互逻辑。
• 修复原UI布局缺陷：补充sidebarPanel容器，解决selectInput布局错乱问题。
• 用dplyr的.groups = "drop"替代ungroup()，简化代码同时保持功能一致。

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