如何在R函数内部运行Shiny应用并实现交互式数据处理？

问题核心 #

原代码的问题在于shinyApp()运行后不会阻塞函数执行，后续代码会直接运行导致找不到目标变量；同时用全局环境赋值的方式不够规范，容易引发变量冲突。

修正后的代码 #

library(shiny)
library(rhandsontable)
library(dplyr)

my_function <- function(x){
  # 移除输入数据框的第一列
  select <- x[, -1]
  
  ui <- fluidPage(
    fluidRow(
      column(width = 10, rHandsontableOutput("myTable")),
      column(width = 2, br(), actionButton("confirm", "确认修改", width = "100%"))
    )
  )
  
  server <- function(input, output, session) {
    # 渲染可编辑的交互式表格
    output$myTable <- renderRHandsontable({
      rhandsontable(select)
    })
    
    # 点击确认按钮后，返回修改后的数据并关闭Shiny窗口
    observeEvent(input$confirm, {
      modified_df <- hot_to_r(input$myTable)
      stopApp(returnValue = modified_df)
    })
  }
  
  # 运行交互式组件，阻塞函数直到用户确认关闭
  modified_data <- runGadget(ui, server)
  
  # 为修改后的数据新增一列
  result <- modified_data %>%
    mutate(new_column_test = "hello")
  
  return(result)
}

# 测试函数
final_data <- my_function(mtcars)
print(final_data)

关键改进点 #

• 用runGadget()替代shinyApp()：它会暂停函数执行，直到用户完成操作并关闭窗口，确保后续代码能拿到修改后的数据。
• 新增确认按钮：让用户主动提交修改结果，避免实时全局赋值的混乱，同时通过stopApp(returnValue = ...)直接返回修改后的数据。
• 取消全局环境赋值：不再依赖.GlobalEnv存储变量，函数内部完成数据传递，更安全规范。

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