如何通过在shiny中更改幻灯片来更改文本

library(shiny)
library(shinydashboard)

# 创建Shiny应用程序
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    # 创建幻灯片
    tabItems(
      tabItem(tabName = "slide1",
              # 定义第一个幻灯片的内容
              h2("Slide 1"),
              p("This is the content of slide 1.")
      ),
      tabItem(tabName = "slide2",
              # 定义第二个幻灯片的内容
              h2("Slide 2"),
              p("This is the content of slide 2.")
      )
    ),
    # 创建用于切换幻灯片的输入控件
    radioButtons("slide", "Select slide:",
                 choices = c("Slide 1", "Slide 2"))
  )
)

server <- function(input, output, session) {
  # 监听输入控件的变化
  observeEvent(input$slide, {
    # 更新幻灯片内容
    if (input$slide == "Slide 1") {
      updateDashboardBody(session, "slide1")
    } else if (input$slide == "Slide 2") {
      updateDashboardBody(session, "slide2")
    }
  })
}

# 运行Shiny应用程序
shinyApp(ui, server)