Shiny应用遍历响应式值时陷入无限循环问题排查

问题根源 #

你的代码陷入无限循环的核心原因是在外层observe中重复创建observeEvent观察者：
每次用户选择文件时，外层observe都会执行一次，这会重新创建observeEvent(input$start)和observeEvent(input$stop)。当点击"OK"按钮时，所有之前创建的observeEvent(input$start)都会被触发，导致文件处理循环重复执行，表现为无限循环。

此外还有两处次要问题：

• rv$input_file_selected初始值设为""，但parseFilePaths返回的是data.frame类型，后续赋值和判断会出现类型不匹配
• observeEvent(input$stop)中的input_file_selected <- NULL是局部变量，并未修改reactiveValues中的实际值

修正后的代码 #

library(shiny)
library(shinyFiles)
library(shinyFeedback)

# UI
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      shinyFilesButton('files', label='File select', title='Please select a file', multiple=TRUE)
    ),
    mainPanel()
  )
)

# SERVER
server <- function(input, output) {
  # 初始化响应式变量，类型统一为NULL
  rv <- reactiveValues(input_file_selected = NULL)
  
  # 仅在用户选择文件时触发逻辑，避免重复执行
  observeEvent(input$files, {
    shinyFileChoose(input, 'files', root=c(root='./'))
    if(!is.null(input$files)){
      rv$input_file_selected <- parseFilePaths(c(root='./'), input$files)
      
      if (length(rv$input_file_selected$datapath) > 0){
        # 显示确认模态框
        showModal(modalDialog(
          HTML("Files to process: <br/> "),
          renderTable(rv$input_file_selected$datapath, colnames = F),
          HTML("Continue? <br/> "),
          title = "Do you want to proceed?",
          footer = tagList(
            actionButton("start", "OK", class="btn btn-success"),
            actionButton("stop", "Back")
          )
        ))
      }
    }
  })
  
  # START按钮逻辑：移到外层，仅绑定一次观察者
  observeEvent(input$start,  {
    req(rv$input_file_selected)
    files_to_do <- rv$input_file_selected$datapath
    # 重置响应式变量
    rv$input_file_selected <- NULL
    
    removeModal()
    
    # 遍历处理文件，强制刷新UI确保模态框及时更新
    for (val in seq_along(files_to_do)){
      print(files_to_do[[val]])
      showModal(modalDialog(paste0("Doing ", val, " / ", length(files_to_do)), footer=NULL))
      shiny::flushReact() # 强制刷新UI
      Sys.sleep(1)
    }
    removeModal()
  })
  
  # BACK按钮逻辑：移到外层，仅绑定一次观察者
  observeEvent(input$stop, {
    rv$input_file_selected <- NULL
    removeModal()
  })
}

shinyApp(ui, server)

关键修改说明 #

1. 替换外层观察者：用observeEvent(input$files, {})替代原observe({})，仅在用户选择文件时触发逻辑，避免无意义的重复执行
2. 移出嵌套观察者：将observeEvent(input$start)和observeEvent(input$stop)移到外层，确保每个按钮只绑定一次观察者，不会重复创建
3. 统一响应式变量类型：将rv$input_file_selected初始值设为NULL，与parseFilePaths返回的data.frame类型匹配
4. 强制UI刷新：在文件处理循环中添加shiny::flushReact()，确保模态框能实时更新显示当前处理进度
5. 修正变量赋值：在stop按钮逻辑中正确修改rv$input_file_selected，而非局部变量

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