Shiny应用按钮observeEvent第二次运行误触发问题咨询

• 核心错误是你将模块服务condSelectServer放在了点击事件的回调中重复调用：每次点击「Choose」按钮都会给同一个ID的模块重新注册一次服务，同步新增一个监听goBtn的观察者。Shiny的输入值不会自动重置，第二次调用模块时，新注册的观察者会读取到上一次goBtn的点击记录，直接触发确认逻辑，就出现了奇偶次交替异常的现象。
• 额外问题：你直接返回input$Number作为响应式值，未和确认按钮绑定，用户还没点击确认，上层应用就已经能读取到选择框的默认值，不符合交互预期。

1. 调整模块逻辑 #

模块服务只注册一次，新增触发模态框显示的控制入口，返回值绑定确认按钮的点击事件，确保只有用户点击确认后才返回最新选择值。
模块代码修改后如下：

condSelectUI <- function(id) {}

condSelectServer <- function(id) {
  moduleServer(id, function(input, output, session) {
    ns <- session$ns
    # 存储可选数值
    conds_reactive <- reactiveVal()
    # 控制模态框显示的触发器
    observeEvent(conds_reactive(), {
      showModal(modalDialog(
        title = "Select a number",
        footer = tagList(
          fluidRow(
            selectInput(ns("Number"), "Select a number", choices = conds_reactive())
          ),
          actionButton(ns("goBtn"), "Ok")
        )
      ))
    }, ignoreInit = TRUE)
    
    # 确认按钮逻辑，返回值绑定点击事件
    selected_val <- eventReactive(input$goBtn, {
      removeModal()
      input$Number
    })
    
    # 暴露给上层的控制接口：传入可选值就显示模态框
    list(
      open = function(conds) {
        conds_reactive(conds)
      },
      get_value = selected_val
    )
  })
}

2. 调整主应用逻辑 #

在顶层初始化模块服务，点击按钮时调用模块的打开方法，监听返回值更新展示内容。
主应用代码修改后如下：

library(shiny)
source("condSelectModule2.R")

ui <- fluidPage(
  condSelectUI("chooseCond"),
  actionButton("makeChoice", "Choose"),
  textOutput("showCond")
)

server <- function(input, output, session) {
  # 顶层仅初始化一次模块服务
  cond_module <- condSelectServer("chooseCond")
  
  # 点击按钮触发模态框打开
  observeEvent(input$makeChoice, {
    cond_module$open(c(1,2,3))
  })
  
  # 只有用户点击确认后才更新展示内容
  output$showCond <- renderText({
    cond_module$get_value()
  })
}

shinyApp(ui, server)

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