如何使用动作按钮在R中显示和隐藏表格输出？

library(shiny)

ui <- fluidPage(
  actionButton("toggleTable", "显示表格"),
  tableOutput("myTable")
)

server <- function(input, output) {
  output$myTable <- renderTable({
    # 在这里编写生成表格的代码
    # 这里只是一个示例，可以根据实际需求进行修改
    data.frame(
      Name = c("John", "Jane", "Mike"),
      Age = c(25, 30, 35)
    )
  })
  
  observeEvent(input$toggleTable, {
    if (input$toggleTable %% 2 == 1) {
      output$myTable <- renderTable(NULL)
    } else {
      output$myTable <- renderTable({
        # 在这里编写生成表格的代码
        # 这里只是一个示例，可以根据实际需求进行修改
        data.frame(
          Name = c("John", "Jane", "Mike"),
          Age = c(25, 30, 35)
        )
      })
    }
  })
}

shinyApp(ui, server)