如何使用单个 actionButton 生成 tableOutput 并切换它而不每次都重新加载它？答案

【问题标题】：How to use a single actionButton to generate a tableOutput and toggling it without reloading it each time?如何使用单个 actionButton 生成 tableOutput 并切换它而不每次都重新加载它？
【发布时间】：2019-10-31 22:13:07
【问题描述】：

我正在开发一个闪亮的应用程序。我需要用户输入一个文件，然后从那个文件中得到一个表。

我需要一个按钮来执行此操作：

如果输入为空，则什么都没有
如果输入不为null，则生成表格并显示
如果表格已经显示，将其隐藏。

我尝试将表格输出设置为hidden，并在单击按钮时切换它。它可以工作，但是当我再次按下按钮隐藏表格时，表格会重新加载。

我的 UI 中有这个：

actionButton(inputId = "viewFile", label = "View file"),
hidden(tableOutput("fileTable"))

这是我在服务器上尝试过的：

  observeEvent(input$viewFile,{
      output$fileTable <- renderTable({...)}) #generating the table
      toggle("fileTable")
  })

正如您所理解的，当单击viewFile 按钮时，会呈现fileTable 输出，然后进行切换（它不再隐藏，所以显示出来了）。第一次生成输出，非常完美。

但是，如果我再次单击按钮以隐藏表格，则会再次计算 renderTable。这是一个无用的操作（您不想生成表格输出只是为了隐藏它）。

有什么方法可以让切换保持工作，但阻止 tableOutput 的重新生成？我考虑过在输出上使用if，但您无法评估来自服务器的输出项。

(Warning: Error in $.shinyoutput: Reading objects from shinyoutput object not allowed.)

最后一个细节：稍后，如果文件已更改，我将尝试通过重新生成表格输出来改进我的应用程序，是否也有办法做到这一点？

感谢您对初学者的问题表示抱歉。我有点失落。如果您对我的代码有任何疑问，请不要犹豫。

【问题讨论】：

对不起，我误解了你的问题。如果您只想将viewFile 用于切换状态，那么为什么不将renderTable 移到observeEvent 之外呢？
这正是我所做的！刚回答你，我就有了这个想法。解决了:-)

标签： r user-interface shiny shinyjs

【解决方案1】：

我找到了一个简单的方法来做我想做的事。

我只是在加载数据的那一刻生成表格，然后用我的按钮，我只切换它。

用户界面：

file <- fileInput(inputId = "file", label="myfile")
hidden(actionButton(inputId = "viewFile", label = "View file"))
hidden(tableOutput("fileTable"))

服务器：

observeEvent(input$file, {
    #The output is generated but not displayed
    output$fileTable<- renderTable({read.csv(file[4][[1]])})
    #We display the button
    toggle("viewFile")
})


observeEvent(input$viewFile,{
    toggle("fileTable")
})

会发生这样的事情：

用户加载文件
从文件生成表格但不显示
出现“查看文件”按钮
用户点击按钮
表格显示
用户再次点击按钮
表格被隐藏

无限重复。祝你有美好的一天

【讨论】：