r - 在反应循环中创建 DataFrame

Question

我正在使用闪亮来创建反应图。一切正常。此外，我想呈现一个与图表使用的过滤数据相同的表格。

在我通过tidyverserenderPlot 函数中的 (%>%filter) 过滤之前。想要使用与以前相同的过滤器来绘制表格，我需要在渲染图之前将过滤后的 db 保存到 df 中。

你知道如何做到这一点吗？我试着这样做

dataInput <- reactive({
   data_angepasst  %>%
     filter(if (input$zeitpunkt.length() != 0) DOP %in% input$zeitpunkt) %>%
     filter(if (input$projekt.length() != 0) Projektname %in% input$projekt)
 })

之后，我尝试使用 dataInput 作为输入来呈现数据表。

我想知道为什么这不能按我想要的方式工作。