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

在ShinyR中，禁用按钮与if语句一起使用observeEvent的方法如下：

首先，使用shiny::uiOutput函数创建一个UI输出对象，用于动态生成按钮。
在observeEvent中使用if语句来判断条件，并根据条件来设置按钮的禁用状态。
使用shiny::renderUI函数将UI输出对象渲染到UI界面中。

下面是一个示例代码：

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)

在上述示例代码中，我们使用shiny::actionButton函数创建一个按钮，并使用shiny::disable和shiny::enable函数来设置按钮的禁用状态。在observeEvent中，我们使用if语句来判断按钮的值是否为偶数，如果是偶数，则禁用按钮，否则启用按钮。最后，使用shiny::renderText函数根据按钮的状态来显示相应的文本。

请注意，这只是一个示例代码，具体的实现方式可能会根据实际需求和情况而有所不同。