如何在R语言中切换Action Button的标签文本

我需要创建一个初始显示**"Start Input"标签的按钮，点击后标签变为"Hide"，再次点击则切换为"Show"**。经过验证，以下是可行的实现代码：

library(shiny)

ui <- fluidPage(
  actionButton("hide_bt", "Start Input"),
  textOutput("text2")
)

server <- function(input, output, session) {
  
  hidvar1 <- reactiveValues(vari1 = 1)
  
  observe({
    if (!is.null(input$hide_bt)){
      input$hide_bt
      isolate({
        if (hidvar1$vari1 == 1) {
          hidvar1$vari1 <- 2
        } else if (hidvar1$vari1 == 2) {
          hidvar1$vari1 <- 1
        }
      })
    }
  })
  
  label <- reactive({
    if (!is.null(input$hide_bt)) {
      if (hidvar1$vari1 == 1) {
        label <- "Hide"
      } else if (hidvar1$vari1 == 2) {
        label <- "Show"
      }
    }
  })
  
  
  observeEvent(input$hide_bt, {
    updateActionButton(session,"hide_bt", label = label())
  })
  
  
  output$text2 <- renderText({ 
    paste(hidvar1$vari1)
  })
}

shinyApp(ui = ui, server = server)

内容的提问来源于stack exchange，提问作者Bkun