Shiny:有没有办法通过在tabsPanel()之间切换来触发observeEvent()

observeEvent(eventExpr, handlerExpr)

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      # 在这里创建一个选项卡（tabs）面板
      # 用于切换触发observeEvent()
      sidebarMenu(
        menuItem("Tab 1", tabName = "tab1"),
        menuItem("Tab 2", tabName = "tab2")
      )
    ),
    mainPanel(
      tabItems(
        # 在这里放置选项卡的内容
        tabItem(tabName = "tab1",
                h3("Tab 1 Content")),
        tabItem(tabName = "tab2",
                h3("Tab 2 Content"))
      )
    )
  )
)

server <- function(input, output) {
  # 监听input$tabs变量的改变
  observeEvent(input$tabs, {
    if(input$tabs == "tab1") {
      # 当选项卡切换到tab1时执行的操作
      # 可以在这里添加相应的代码
      print("Tab 1 is selected")
    } else if(input$tabs == "tab2") {
      # 当选项卡切换到tab2时执行的操作
      # 可以在这里添加相应的代码
      print("Tab 2 is selected")
    }
  })
}

shinyApp(ui, server)