react 函数参数

Question

我的目标是在 R 中创建一个响应式 Shiny 函数。有多个输出(例如表)可以绑定(bind)到类似的函数。但是，我需要该函数对特定于一张表的某些参数使用react。这是一些简单的示例代码，它不起作用，但它使我的想法清晰 - 我希望:

output$tableOne <- DT::renderDataTable({
  getData(foo)
})

getData <- reactive(function(funParameter){
  corrStartDate <- input$StartDate
  corrEndDate <- input$EndDate

  return(someData(corrStartDate, corrEndDate, funParameter))
})

在所有表中(如果有多个表)，我不想显示具有不同基本参数(getData(x，y，foo))的数据。所以第二个表可以使用“getData(x, y, bar)”。我不想每次都为另一个表编写相同的函数。

上面的解决方案不起作用，因为 react 函数不支持参数。

你会如何解决这个问题？

Answer 1

这应该起作用:

getData <- eventReactive(input$funParameter, {
  corrStartDate <- input$StartDate
  corrEndDate <- input$EndDate

  return(someData(corrStartDate, corrEndDate, input$funParameter))
})

eventReactive仅当预先声明的参数发生变化时才会更新。实际上，如果 input$StartDate，则不会触发此 react 。或 input$EndDate变化。

如果这不是您想要的，正常的 react 函数应该可以工作。 IE。:

getData <- reactive({

  funParameter <- input$funParameter
  corrStartDate <- input$StartDate
  corrEndDate <- input$EndDate

  return(someData(corrStartDate, corrEndDate, funParameter))
})

如果任何输入发生变化，这将触发