Shiny应用中点击重置按钮时如何清空fileInput上传状态

Shiny原生未提供直接更新fileInput状态的接口，可通过以下两种方案实现需求： #

方案1：使用shinyjs包实现（推荐，代码改动量最小） #

核心改动点： #

• 引入shinyjs依赖包，UI中启用shinyjs能力
• 在reset按钮的监听事件中调用reset("file")即可清空文件上传组件状态
• 可补充重置默认数据、隐藏日期选择器的逻辑，恢复到未上传文件的初始状态

完整可运行代码： #

library(shiny)
library(shinythemes)
library(shinyjs)
library(readxl)

df1 <- structure(
  list(date1= c("2021-06-28","2021-06-28","2021-06-28"),
       date2 = c("2021-07-01","2021-07-02","2021-07-04"),
       Category = c("ABC","ABC","ABC"),
       Week= c("Wednesday","Wednesday","Wednesday")),
  class = "data.frame", row.names = c(NA, -3L))


ui <- fluidPage(
  useShinyjs(), # 启用shinyjs能力
  shiny::navbarPage(theme = shinytheme("flatly"), collapsible = TRUE,
                    br(),
                    tabPanel("",
                             sidebarLayout(
                               sidebarPanel(
                                 fileInput("file",h4("Import file"),
                                           multiple = T,accept = ".xlsx"),
                                 br(),
                                 uiOutput("date"),
                                 actionButton("reset", "Reset")
                               ),
                               mainPanel(
                               ),
                             ))
  ))

server <- function(input, output,session) {
  # 用reactiveVal存储可更新的数据集
  default_data <- reactiveVal(df1)
  
  # 上传文件后更新数据集
  observeEvent(input$file, {
    if (!is.null(input$file)) {
      df <- read_excel(input$file$datapath)
      default_data(df)
    }
  })
  
  
  output$date <- renderUI({
    req(default_data())
    all_dates <- seq(as.Date('2021-01-01'), as.Date('2021-01-15'), by = "day")
    disabled <- as.Date(setdiff(all_dates, as.Date(default_data()$date2)), origin = "1970-01-01")
    dateInput(input = "database", 
              label = h4("Choose"),
              min = min(default_data()$date2),
              max = max(default_data()$date2),
              value = NA,
              datesdisabled = disabled)
    
  })
  
  observeEvent(input$reset, {
    # 清空日期选择
    updateDateInput(session, 'database', value = NA)
    # 清空fileInput上传状态
    reset("file")
    # 可选：恢复初始默认数据集
    default_data(df1)
  })
}

shinyApp(ui = ui, server = server) 

方案2：不使用第三方包，动态渲染fileInput #

如果不想引入额外依赖，可将fileInput改为动态渲染组件，点击reset时重新渲染该组件即可清空状态：

核心改动点： #

• 将fileInput写入renderUI中，在服务端动态输出
• 点击reset时触发动态组件的重渲染，同时重置数据状态即可

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