执行 ShinyFileChoose 处理时如何停止处理直到选择文件

Question

我们目前正在开发一个闪亮的应用程序。 当我使用 ShinyFileChoose 读取文件时，我想将读取的文件存储在一个变量中并将其连接到后续处理。 因此，我想在使用 ShinyFileChoose 选择文件时停止该过程。 我该怎么办？

示例代码如下。

library ("shiny")
library ("shinyWidgets")

ui <-fluidPage (
  shinyFilesButton ('file','Reading file ...','choose file', FALSE),
      textOutput ("OUTPUT_TEXT")
)

server <-function (input, output, session) {
  
  observeEvent (input $ file, {
    
    volumes <-c ("Documents" = Sys.getenv ("HOME"))
    shinyFileChoose (input,'file', session = session, roots = volumes, filetypes = c ('','txt'))
    
    unlistfile <-unlist (input $ file)
    filename <-c (unlistfile [2] [1])
    
    output $ OUTPUT_TEXT <-renderText ({
      paste0 (volumes, "\\", filename)
    })
  })
}

shinyApp (ui = ui, server = server)

这里，文件路径和文件名通过paste0的过程输出到textOutput。 我想把这个进程换成read_csv()的进程，连接到读取文件的进程。 但是，由于使用 shinyFileChoose 不会停止处理，因此使用 NA 处理输入 $ 文件并发生错误。

如果有人知道对策，请告诉我。

Answer 1

你可以试试：

library(shiny)
library(shinyWidgets)
library(shinyFiles)

ui <-fluidPage (
  shinyFilesButton ('file','Reading file ...','choose file', FALSE),
  tableOutput("OUTPUT_TABLE")
)

server <-function (input, output, session) {
  
  observeEvent (input$file, {
    volumes <- c("Documents" = Sys.getenv ("HOME"))
    shinyFileChoose (input,'file', session = session, roots = volumes, filetypes = c ('','txt'))
    if(length(input$file) <= 1) return({})
    output$OUTPUT_TABLE <- renderTable ({
      df <- read.csv(input$file$files[[1]][[3]])
      df
    })
  })
}

shinyApp (ui = ui, server = server)