如何在Shining中重置fileInput的值？

Question

关于这个问题已经有类似的帖子了（例如，如何更新闪亮的fileInput对象？），但我仍然无法理解，在使用fileInput小部件之后，如何强制Shiny忘记input$file的值。

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

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

这是我的代码：

服务器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))
})
})

用户界面。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

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

在ui中。R你可以把：

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

和服务器。r加上这个：

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

Answer 2

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

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

>

您可以创建变量upload\u state，使用文件上载事件将其设置为upload，使用重置按钮将其设置为reset。

根据upload\u 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)