在 Shiny App 中重置 fileInput答案

【问题标题】：Resetting fileInput in Shiny App在 Shiny App 中重置 fileInput
【发布时间】：2018-08-26 22:06:35
【问题描述】：

我一直在尝试在 Shiny 应用程序中重置 fileInput 并阅读类似问题的解决方案，但我的问题仍然存在。大多数解决方案最终导致使用 Dean Attali 出色的 shinyjs 包和其中的 reset() 函数。遵循these 说明后，我的代码如下所示：

library(shiny)
library(shinyjs) 
library(xlsx) 
library(tidyverse) 

ui <- fluidPage(
  useShinyjs(),
  fileInput('inFile', 'Choose file'),
  actionButton('reset', 'Reset'),
  radioButtons("type","Choose file type",choices = c('csv','xls')),
  tableOutput('tbl')
)

server <- function(input, output, session) {

  rv <- reactiveValues(data = NULL)

  observe({
    req(input$inFile)
    if(input$type=='csv'){
      rv$data <- read.csv(input$inFile$datapath)
    }
    if(input$type=='xls'){
      rv$data <- read_excel(input$inFile$datapath)
    }

  })

  observeEvent(input$reset, {
    rv$data <- NULL
    reset('inFile')
  })

  output$tbl <- renderTable({
    rv$data
  })
}

shinyApp(ui, server)

我最初选择csv 选项并且能够加载 csv 文件。现在，当我按下重置按钮时，它会清除数据。一旦我选择了xls 选项，我就会得到一个错误：

Listening on http://127.0.0.1:4135
Warning: Error in : Unknown file extension: csv

这让我相信input$inFile$datapath 仍然包含我之前选择的 csv 文件的路径名。我已经没有关于如何解决这个问题的想法，非常感谢您的帮助。

【问题讨论】：

你安装了xlsx 包吗？
@Aaghaz Hussain 是的，我愿意。
是否加载，代码中没有显示。
它也加载了。

标签： r shiny shinyjs

【解决方案1】：

理想情况下fileInput 会正确重置，但您可以将其作为一种解决方法。添加显式标志变量 (rv$clear) 以指示您是否处于清除状态，并在重置和上传发生时分别在高优先级观察者中打开和关闭。

library(shiny)
library(shinyjs) 
library(xlsx) 
library(tidyverse) 

ui <- fluidPage(
  useShinyjs(),
  fileInput('inFile', 'Choose file'),
  actionButton('reset', 'Reset'),
  radioButtons("type","Choose file type",choices = c('csv','xls')),
  tableOutput('tbl')
)

server <- function(input, output, session) {

  rv <- reactiveValues(
    data = NULL,
    clear = FALSE
  )

  observe({
    req(input$inFile)
    req(!rv$clear)

    if(input$type=='csv'){
      rv$data <- read.csv(input$inFile$datapath)
    }
    if(input$type=='xls'){
      rv$data <- read_excel(input$inFile$datapath)
    }

  })

  observeEvent(input$inFile, {
    rv$clear <- FALSE
  }, priority = 1000)

  observeEvent(input$reset, {
    rv$data <- NULL
    rv$clear <- TRUE
    reset('inFile')
  }, priority = 1000)

  output$tbl <- renderTable({
    rv$data
  })
}

shinyApp(ui, server)

【讨论】：