Shiny应用使用selectInput动态更新已source脚本的selected_data变量

核心问题说明 #

之前的写法不生效的核心原因是：model.R全局引入时只会在App启动阶段运行1次，后续修改全局变量selected_data不会自动触发模型逻辑重跑，model_output的值自然不会更新。

改造步骤（仅需少量改动，无需迁移原有模型代码） #

1. 调整model.R结构，将计算逻辑封装为参数化函数 #

仅需要给原有model.R的所有代码加一层函数包裹，入参设为selected_data，最终返回计算结果即可，原有计算逻辑一行都不用改：

# 调整后的model.R内容
calculate_model <- function(selected_data) {
  # 原有model.R的全部代码原封不动放在这里
  source("inputs.R", local = TRUE)
  
  model_calculation1 <- union(data_model[[selected_data]] * 200, third_data)
  model_calculation2 <- lapply(list(a = c(1.2,4.5,5,64,5,6,7,10), b = c(3,5,45,3,2,1,6,8)), "*",model_calculation1)
  model_calculation3 <- lapply(model_calculation2, "*", (model_calculation1)^2 * 3)
  model_calculation4 <- mapply("+",model_calculation3[1], model_calculation2[1])
  model_calculation5 <- mean(model_calculation4)
  model_calculation6 <- model_calculation5 + model_calculation4
  model_calculation7 <- model_calculation6 / 10000
  # 此处保留你原来model_calculation8到model_calculation998的所有逻辑
  model_calculation999 <- model_calculation7 / 2000
  model_output <- union(model_calculation999 * 200, third_data)
  
  return(model_output)
}

2. 调整app.R，响应式调用模型函数 #

不需要再全局引入inputs.R，仅需全局引入一次model.R加载计算函数，在用户切换选框时自动触发重算：

# 调整后的app.R内容
library(shiny)
library(plotly)

# 全局加载模型计算函数
source("model.R")

ui <- fluidPage(
  selectInput(inputId = "select_data", 
              label = "SELECT DATA", 
              choices = c("Yellow" = "yellow_data",
                          "Green" = "green_data",
                          "Red" = "red_data")),  
  plotlyOutput(outputId = "plot_model_output")
)

server <- function(input, output, session) {
  # 响应式模型结果：选框取值变化时自动重新调用函数计算
  get_model_output <- reactive({
    calculate_model(selected_data = input$select_data)
  })
  
  output$plot_model_output <- renderPlotly({ 
    current_output <- get_model_output()
    fig <- plot_ly(x = seq_along(current_output), y = current_output, 
                   name = 'model output', type = 'scatter', mode ='lines')
    fig
  })
}

shinyApp(ui, server)

改造优势 #

• 完全复用你已写好的所有inputs、model脚本逻辑，不需要将代码复制到app.R中，不会造成代码冗余
• 函数内调用source("inputs.R", local = TRUE)会让所有输入变量仅在函数内部生效，不会污染全局环境，也避免了变量冲突问题
• 每次选框切换自动触发计算，结果会同步更新

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