如何从闪亮的

Question

我在server.r

中有以下反应函数

 test <- reactive({ 

 test_1
 test_2

})

output$table1 <- renderTable({

 test_1
})

output$table2 <- renderTable({

 test_2
})

我想将test_1 & test_2从一个反应函数引用到两个不同的输出表。

我如何实现上述目标？

Answer 1

引用多个数据帧的正确方法如下

test <- reactive({ 
  test_1
  test_2
  list(df1 = test_1, df2 = test_2)

})

output$table1 <- renderTable({
   test()[['df1']]
})
output$table2 <- renderTable({
   test()[['df2']]
})

Answer 2

尝试将反应数据框放入列表中：

test <- reactive({ 
  test_1
  test_2
  testData <- list(test_1, test_2)
  testData ## added this
})

output$table1 <- renderTable({
  testData <- test()
  testData$test_1
})
output$table2 <- renderTable({
  testData <- test()      
  testData$test_2
})

这个扩展版本适用于'renderLeaflet`应用程序。