如何在 Shiny 中重置 fileInput 的值？

Question

已经有关于这个问题的类似帖子（例如how can I update a shiny fileInput object?），但我仍然无法弄清楚在使用fileInput 小部件后如何迫使Shiny 忘记input$file 的值。

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

我尝试使用一些推荐的解决方案：shinyjs 包并用renderUI/uiOutput 刷新fileInput 模块 - 但仍然没有结果。

这是我的代码：

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')
 )
))

如果有任何帮助，我将不胜感激。

Answer 1

input$file1 被 Shiny 缓存所以在下次上传之前不会改变。

由于您想要一个文件名变量在大多数情况下映射到input$file1$name，但在单击重置按钮时重置为NULL，您需要创建另一个层并保持这种关系。

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

• 使用响应式表达式，根据upload_state 值采用input$file1$name 或NULL。

不需要submit 按钮。

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)

Answer 2

我知道这是一篇旧帖子，但您可以通过在服务器中从头开始重建输入来重置输入。

在 ui.R 你可以放：

...
uiOutput('file1_ui') ## instead of fileInput('file1', label = NULL)
...

然后在 server.R 中添加：

...
output$file1_ui <- renderUI({
  input$reset ## Create a dependency with the reset button
  fileInput('file1', label = NULL)
})
...