Dataframe 在同一反应函数中创建多个数据帧并分别输出

在服务器端，我获取用户输入的数据：

stressed.flag <- reactive({input$flags})

---

我想我的问题是如何告诉机器在输出$bogus语句中获取哪个数据帧。也许我想要df1，也许我想要df2，也许两者都可以从getdata反应语句中使用列表返回一对对象

list（df1=…，df2=…）

然后使用

getdata（）[[['df1']]]

但通常情况下，通过reactive创建一个数据集是个好主意，所以我会这样做：

stressed.flag <- reactive({input$flags})
df <- reactive(readWorksheetFromFile(x, y)) 
df1 <- reactive({ 
   data <- df();
   data[data[,1] %in% stressed.flag(),1:11]})
output$full= renderDataTable(df())
output$stressed= renderDataTable(df1())

presented.flag
  output$bogus = renderDataTable({
            df1()
        })

stressed.flag <- reactive({input$flags})
df <- reactive(readWorksheetFromFile(x, y)) 
df1 <- reactive({ 
   data <- df();
   data[data[,1] %in% stressed.flag(),1:11]})
output$full= renderDataTable(df())
output$stressed= renderDataTable(df1())