Shiny应用中基于响应式文件列表对象控制按钮禁用/启用异常问题

你的代码存在两个关键问题导致按钮状态异常：

1. 按钮ID不匹配：UI中仅定义了test_url_1按钮，但服务器端会根据选中的选项动态生成test_url_2、test_url_3这类不存在的按钮ID，shinyjs无法对不存在的元素执行启用/禁用操作，最终导致实际的test_url_1按钮状态未被正确控制。
2. 初始状态未初始化：应用启动时未设置按钮的初始状态，可能导致显示不符合预期。

以下是修正后的完整代码：

# LIBRARIES
library(shiny)
library(shinyjs)

# UI
ui <- fluidPage(
  
  useShinyjs(),
  
  fluidRow(
    
    column(width = 1,
           radioButtons(inputId = "urls",
                        choices = c("URL 1" = "url_1",
                                    "URL 2" = "url_2",
                                    "URL 3" = "url_3"),
                        label = "Matches")
    ),
    
    column(width = 1,
           # 固定按钮ID，避免动态生成不存在的ID
           actionButton(inputId = "test_url",
                        label = "TEST")
    )
    
  )
  
)

# SERVER
server <- function(input, output, session) {
  
  # 响应式对象：返回选中文件夹的文件列表，空文件夹返回NULL
  files_available <- reactive({
    req(input$urls)
    folder_path <- paste0("~/desktop/", input$urls)
    files <- list.files(path = folder_path)
    if (length(files) > 0) files else NULL
  })
  
  # 根据文件存在状态控制按钮启用/禁用
  observe({
    if (!is.null(files_available())) {
      shinyjs::disable(id = "test_url")
    } else {
      shinyjs::enable(id = "test_url")
    }
  })
  
  # 初始化按钮状态：应用启动时根据默认选中的文件夹设置状态
  observeEvent(input$urls, {
    if (!is.null(files_available())) {
      shinyjs::disable(id = "test_url")
    } else {
      shinyjs::enable(id = "test_url")
    }
  }, ignoreNULL = FALSE)
  
}

# RUN APP
shinyApp(ui = ui, server = server)

关键修改说明 #

• 固定按钮ID：将按钮ID改为test_url，服务器端直接引用该固定ID，避免动态生成不存在的元素ID。
• 简化响应式逻辑：files_available直接返回文件列表或NULL，逻辑更清晰。
• 初始化状态：添加ignoreNULL = FALSE的observeEvent，确保应用启动时就根据默认选中的文件夹（URL 1）设置按钮的初始禁用状态。

如果你的需求是每个选项对应单独的按钮（比如三个按钮分别对应三个文件夹），可以修改UI添加三个按钮，然后在服务器端根据选中的选项控制对应按钮的状态，示例如下：

# UI部分修改
column(width = 3,
       actionButton(inputId = "test_url_1", label = "TEST URL 1"),
       actionButton(inputId = "test_url_2", label = "TEST URL 2"),
       actionButton(inputId = "test_url_3", label = "TEST URL 3")
)

# 服务器端修改
observe({
  # 先启用所有按钮
  lapply(c("test_url_1", "test_url_2", "test_url_3"), shinyjs::enable)
  # 禁用当前选中文件夹有文件的按钮
  current_btn_id <- paste0("test_", input$urls)
  if (!is.null(files_available())) {
    shinyjs::disable(id = current_btn_id)
  }
})

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