如何在 Shiny 中重置 fileInput 的值？

关于此事已经有类似的帖子（例如如何更新闪亮的 fileInput 对象？ https://stackoverflow.com/questions/17352086/how-can-i-update-a-shiny-fileinput-object），但我仍然无法弄清楚如何迫使 Shiny 忘记一个值input$file之后fileInput使用小部件。

当人们想要触发文件上传时，问题就变得棘手了actionButton（称为"Submit"在我的例子中），然后用另一个重置它的值actionButton ("Reset" here). 当再次单击“提交”按钮时，很明显 input$file 值仍然存在。

我尝试使用一些推荐的解决方案：shinyjs包装和清爽fileInput模块与renderUI/uiOutput——但还是没有结果。

这是我的代码：

server.R

shinyServer(function(input, output, session) {

values <- reactiveValues(
 file = NULL
)

observeEvent(input$submit, {
 values$file <- input$file1
})

observeEvent(input$reset, {
 values$file <- NULL
 output$resettableInput <- renderUI({
  fileInput('file1', label = NULL)
 })
}, ignoreNULL = F)

output$summary <- renderText({
 return(paste('Uploaded file:', values$file$name))
})
})

ui.R

shinyUI(bootstrapPage(

 headerPanel('Reset / Submit file input example'),

 sidebarPanel(

  uiOutput('resettableInput'),

  fluidRow(
          column(4,
                 actionButton('reset', 'Reset All')
          ),
          column(4,
                 actionButton('submit', 'Submit')
          )
  )
 ),

 mainPanel(
  h4('Summary'),
  verbatimTextOutput('summary')
 )
))

我将不胜感激任何帮助。

input$file1由 Shiny 缓存，因此在下次上传之前不会更改。

因为您想要一个映射到的文件名变量input$file1$name大多数时间但重置为NULL当单击重置按钮时，您需要创建另一个图层并维护这种关系。

• 您可以创建一个变量upload_state，将其设置为uploaded包含文件上传事件，以及reset带重置按钮。

• 使用反应式表达式input$file1$name or NULL根据upload_state value.

没有必要submit button.

library(shiny)
ui <- shinyUI(bootstrapPage(
  headerPanel("Reset / Submit file input example"),
  sidebarPanel(
    fileInput('file1', label = NULL),
    fluidRow(
      column(4,
             actionButton('reset', 'Reset Input')
      ))
  ),

  mainPanel(
    h4("Summary"),
    verbatimTextOutput("summary")
  )
))

server <- shinyServer(function(input, output, session) {
  values <- reactiveValues(
    upload_state = NULL
  )

  observeEvent(input$file1, {
    values$upload_state <- 'uploaded'
  })

  observeEvent(input$reset, {
    values$upload_state <- 'reset'
  })

  file_input <- reactive({
    if (is.null(values$upload_state)) {
      return(NULL)
    } else if (values$upload_state == 'uploaded') {
      return(input$file1)
    } else if (values$upload_state == 'reset') {
      return(NULL)
    }
  })

  output$summary <- renderText({
    return(paste("Uploaded file:", file_input()$name))
  })
})

shinyApp(ui = ui, server = server)