Shiny中ConditionalPanel失效求助：单选框选中未显示复选框

你的代码里有两处关键错误导致复选框无法正常显示：

1. ConditionalPanel的条件表达式错误 #

ConditionalPanel的判断逻辑采用JavaScript语法，必须通过input对象访问Shiny输入控件的值。你原代码里的filters == 'continent'漏掉了input.前缀，正确写法应为input.filters == 'continent'。

2. 控件ID不匹配 #

服务器端渲染的复选框ID写为"continentCheckbox "（末尾多了一个空格），但UI中uiOutput指定的输出ID是"continentCheckbox"，空格导致两者无法对应，需要去掉服务器端ID末尾的空格。

修正后的完整代码 #

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "FlightAnalyzer"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("conPanelTest", tabName = "3dGlobe", icon = icon("globe"))
    )
  ),
  dashboardBody(
    tabItems(
      tabItem( tabName = "3dGlobe",
               fluidRow(
                 column( width = 4,
                         radioButtons("filters", "Filters" , choiceNames = list("All","Some continents") , choiceValues = list("all","continent")),
                         conditionalPanel(
                           condition = "input.filters == 'continent'",
                           uiOutput("continentCheckbox")
                         )
                 )
               )
      )
      
    )
    
  )
)

server <- function(input, output) {
  output$continentCheckbox <- renderUI({
    checkboxGroupInput("continentCheckbox", "Seleziona il Continente:",choices = c("Europa", "Asia", "Africa", "Americhe", "Oceania"))
  })
}

shinyApp(ui = ui, server = server)

内容的提问来源于stack exchange，提问作者xSamx02