R 条件呈现数据表

在应用程序中有两个actionbutton，“tasto.a”和“tasto.b”，如果我按“key.a”按钮，data.frame“a”将分配给tab.SDO（），如果我按“key.a”按钮，data.frame“a”将分配给tab.SDO（），以便在ui中呈现选定的data.frame。问题是只进行了列表中的第二次赋值（tab.SDO您可以使用反应值和一些

观察事件

：

server <- function(input, output, session) {

  tab.SDO <- reactiveVal(a)
  observeEvent(input$tasto.a, {
    tab.SDO(a)
  })
  observeEvent(input$tasto.b, {
    tab.SDO(b)
  })

  output$tabella.SDO <- DT::renderDataTable({tab.SDO()}, rownames = FALSE,
                                            options = list(pageLength = 25)
  )

}

服务器
server <- function(input, output, session) {

  tab.SDO <- reactiveVal(a)
  observeEvent(input$tasto.a, {
    tab.SDO(a)
  })
  observeEvent(input$tasto.b, {
    tab.SDO(b)
  })

  output$tabella.SDO <- DT::renderDataTable({tab.SDO()}, rownames = FALSE,
                                            options = list(pageLength = 25)
  )

}