在 R Shiny Dashboard 的反应式函数中返回数据帧

Question

使用 Shiny Dashboard、ui.r、server.r 和几个包含函数的 r 脚本。

基本问题是：我将两个数据集带入 server.r 并将它们传递给准备/清理数据集的函数，然后将它们绑定在一起，并应返回一个完整的数据帧。dataFrame 应该是反应式的。这是我到目前为止所拥有的：

在 server.r 中，我在函数（输入、输出、会话）之前加载数据。然后我有：

################server.r  code #########################
data <- reactive({
   testDF <- prepData(data1, data2)
})

prepData 函数做了很多事情，但以：

####################prepData function return#################
 return(rbind(data1, data2))

如果我使用类似的东西：

############## server.r code#######################
value = nrow(data()),

然后代码返回正确的值。但是，我更愿意像使用 testDF 一样返回数据框。

Shiny 将在找不到对象“testDF”的 UI 中抛出错误。

我尝试解决： 如何在 R/Shiny 中构建反应式数据框？ 使用代码：

dataR <- prepData(data1, data2)

makeReactiveBinding(dataR)

这仍然会引发错误。该功能显然可以正常工作并且已经过验证，但是对于使用此功能的反应性组件，我一定不明白。任何帮助，将不胜感激。谢谢！

服务器界面

function(input, output, session) { 

### PreProcess the Data

data <- reactive({
  testDF <- prepData(bdata, qdata)
})

#dataR <- prepData(bData, qData)

#makeReactiveBinding(dataR)

### Information Box Populations

output$monthlytransactions = renderInfoBox({
infoBox(
  title = "Payments",
  value = nrow(data()),
  icon = icon("comments-dollar"),
  color = "blue"
)
})

output$monthlyGrossDollars = renderInfoBox({
infoBox(
  title = "Payments",
  value = sum(testDF$GrossAmount),
  icon = icon("comments-dollar"),
  color = "blue"
)
})

 }

准备数据

############# FUNCTIONS ##############
prepData <- function(beamData, qlawData){ 

##Processing##
#Join DFs
return(rbind(bData, qData))

Answer 1

您可以将反应式表达式视为返回值的函数。所以你得到object 'testDF' not found错误是因为testDF只存在于data反应对象（函数）的范围内。

创建反应式表达式时：

data <- reactive({
  testDF <- prepData(bdata, qdata)
})

你实际上在做的是创建一个返回值的函数。在这种情况下，您运行prepData()，将结果保存在对象中testDF，然后隐式返回该值（因为 R 隐式返回函数最后一行的值）。您可以通过调用来访问该值data()，因为这是返回您的值的反应式表达式的名称，而不是testDF，因为一旦函数完成运行，该对象就会被删除。

如果要testDF包含 的结果prepData，只需像这样更改反应式表达式的名称：

testDF <- reactive({
    prepData(bdata, qdata)
})

testDF() # this will return the value you want

调用反应式表达式实际上会返回一个数据框，您可以对其进行子集化并照常使用。所以你可以像处理数据框一样使用它（但不要忘记括号！）：

data()$GrossAmount
data()[data()$GrossAmount > 100, c('name', 'date')]