无法使禁用按钮与ShinyR中的if语句一起使用observeEvent

library(shiny)

ui <- fluidPage(
  # 创建一个UI输出对象
  uiOutput("myButton"),
  
  # 显示按钮状态的文本
  textOutput("buttonStatus")
)

server <- function(input, output, session) {
  # 动态生成按钮
  output$myButton <- renderUI({
    actionButton("myButton", "点击按钮")
  })
  
  # observeEvent中使用if语句来设置按钮的禁用状态
  observeEvent(input$myButton, {
    if (input$myButton %% 2 == 0) {
      disable("myButton")  # 禁用按钮
    } else {
      enable("myButton")   # 启用按钮
    }
  })
  
  # 显示按钮状态的文本
  output$buttonStatus <- renderText({
    if (is.null(input$myButton)) {
      "按钮未初始化"
    } else if (isTRUE(input$myButton)) {
      "按钮已启用"
    } else {
      "按钮已禁用"
    }
  })
}

shinyApp(ui, server)