Shiny中能否更新downloadButton标签或搭配actionButton用downloadHandler？

两种方法都可以实现，直接给可运行的实现方案：

downloadButton 底层是带下载触发逻辑的特殊actionButton，你已经在用的updateActionButton()本身就支持修改它的标签，不需要替换按钮类型，代码改动最小。

library(shiny)

ui <- fluidPage(
  checkboxInput("use_avg", "Use averages"),
  downloadButton("download_data", "Download")
)

server <- function(input, output, session) {
  observeEvent(input$use_avg, {
    btn_label <- if (input$use_avg) "Download averages" else "Download"
    # 直接传入downloadButton的id即可更新标签
    updateActionButton(inputId = "download_data", label = btn_label)
  })

  output$download_data <- downloadHandler(
    filename = function() {
      ifelse(input$use_avg, "averages_data.csv", "raw_data.csv")
    },
    content = function(file) {
      # 替换为你实际的数据转换、导出逻辑
      export_data <- if (input$use_avg) as.data.frame.list(colMeans(mtcars)) else mtcars
      write.csv(export_data, file, row.names = FALSE)
    }
  )
}

shinyApp(ui, server)

如果你需要给按钮加更多自定义逻辑（比如点击前做数据校验、加载提示、动态切换图标/样式），可以把可见的自定义actionButton和隐藏的原生downloadButton绑定，点击可见按钮时触发隐藏按钮的下载流程：

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  checkboxInput("use_avg", "Use averages"),
  # 可任意修改属性的自定义按钮
  actionButton("custom_download", "Download", class = "btn-success", icon = icon("download")),
  # 绑定下载逻辑的隐藏按钮，不占用页面布局空间
  downloadButton("real_download_trigger", style = "visibility: hidden; position: fixed; top: -1000px;")
)

server <- function(input, output, session) {
  # 原有更新按钮标签的逻辑完全不需要改动
  observeEvent(input$use_avg, {
    btn_label <- if (input$use_avg) "Download averages" else "Download"
    updateActionButton(inputId = "custom_download", label = btn_label)
  })

  observeEvent(input$custom_download, {
    # 这里可以加下载前的自定义逻辑，比如数据校验、加载提示
    showNotification("Starting file export...", type = "message")
    # 触发隐藏按钮的下载动作
    runjs("document.getElementById('real_download_trigger').click()")
  })

  output$real_download_trigger <- downloadHandler(
    filename = function() {
      ifelse(input$use_avg, "averages_data.csv", "raw_data.csv")
    },
    content = function(file) {
      export_data <- if (input$use_avg) as.data.frame.list(colMeans(mtcars)) else mtcars
      write.csv(export_data, file, row.names = FALSE)
    }
  )
}

shinyApp(ui, server)

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