R Shiny - 禁用启用shinyUI元素

使用R Shiny构建交互式应用程序时，我们经常需要根据特定条件禁用或启用shinyUI元素。这种灵活性可以使我们根据用户输入或应用程序状态来动态调整用户界面，提供更好的用户体验。在本文中，我们将探讨如何使用R Shiny来禁用或启用shinyUI元素，并提供一个案例代码来说明这个概念。

{r}
library(shiny)
ui <- shinyUI(
  fluidPage(
    selectInput("enable_input", "启用/禁用输入框:", choices = c("启用", "禁用")),
    conditionalPanel(
      condition = "input.enable_input == '启用'",
      textInput("input_box", "输入框:", value = "默认值")
    )
  )
)
server <- shinyServer(function(input, output) {
  
})
shinyApp(ui = ui, server = server)

{r}
library(shiny)
library(shinyjs)
ui <- shinyUI(
  fluidPage(
    useShinyjs(),
    actionButton("toggle_button", "启用/禁用按钮"),
    br(),
    strong("可被禁用的文本:", id = "disable_text"),
    br(),
    strong("可被禁用的图片:", id = "disable_image")
  )
)
server <- shinyServer(function(input, output) {
  observeEvent(input$toggle_button, {
    if (is.null(input$toggle_button)) {
      disable("disable_text")
      disable("disable_image")
    } else {
      enable("disable_text")
      enable("disable_image")
    }
  })
})
shinyApp(ui = ui, server = server)