Início / coding / Perguntas / 79490957
Accepted
Salvador
Asked: 2025-03-07 08:00:42 +0800 CST

Como habilitar/desabilitar o checkboxInput quando determinado painel é selecionado

  • 772

Estou tentando desabilitar a caixa de seleção se a aba 'Uno' estiver selecionada, mas habilitá-la se a aba 'Dos' estiver selecionada. Como posso fazer isso no servidor com um evento?

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      checkboxInput("myCheckbox", "Enable me", value = FALSE)
    ),
    
    mainPanel(
      tabsetPanel(id = "myTabs",
                  tabPanel("Uno", value = "tab1", "This is tab Uno"),
                  tabPanel("Dos", value = "tab2", "This is tab Dos")
      )
    )
  ),
)

server <- function(input, output, session) {
  session$onSessionEnded(function() {
    stopApp()
  })
}
shinyApp(ui, server)

1 respostas

  1. Best Answer

    Você pode usar o shinyjspacote para enable()e disable()uma entrada. Use um observador para observar o valor da aba escolhida.

    library(shiny)
library(shinyjs)

ui <- fluidPage(
    useShinyjs(),
    sidebarLayout(
        sidebarPanel(
            disabled(checkboxInput("myCheckbox", "Enable me", value = FALSE))
        ),
        
        mainPanel(
            tabsetPanel(id = "myTabs",
                        tabPanel("Uno", value = "tab1", "This is tab Uno"),
                        tabPanel("Dos", value = "tab2", "This is tab Dos")
            )
        )
    ),
)

server <- function(input, output, session) {
    session$onSessionEnded(function() {
        stopApp()
    })
    
    observeEvent(input$myTabs,{
        if(input$myTabs == "tab1"){
            disable("myCheckbox")
        } else {
            enable("myCheckbox")
        }
    })
}
shinyApp(ui, server)
    • 1

relate perguntas