r - 如何在加载阶段禁用 UI 元素

Question

假设我有一个 UI 选择器，我想在不使用“shinyjs”包的情况下将其加载为“禁用”状态。如何设置选项或任何其他元素以使此 UI 选择器从一开始就处于“禁用”状态。

library(shiny)

# UI
ui <- fluidPage(
  fluidRow(uiOutput("uo_variable_x"))
)

# Server
server <- function(session, input, output) {
  
  # Variable 'X'
  output$uo_variable_x <- renderUI({
    selectizeInput(
      'si_variable_x', 
      label = NULL, 
      choices = state.name,
      selected = state.name[1:2],
      multiple = TRUE,
      options = list(
        create = TRUE
        # EXPECT some parameter here
      ))
  })
}

# Run the application 
shinyApp(ui = ui, server = server)