Shiny：基于 selectizeInput 的 conditionalPanel 问题

Posted 2023-03-24

【中文标题】Shiny：基于 selectizeInput 的 conditionalPanel 问题

【英文标题】：Shiny: problems with conditionalPanel based on selectizeInput

【发布时间】：2015-06-01 02:31:45

【问题描述】：

我对以下代码有疑问。我的目标是基于“selectizeInput”显示一些“numericInput”。它正在工作，但我有 2 个问题：

当没有选择任何项目时，仍然显示一个 numericInput，而应该没有。 当没有选择任何项目时，checkboxInput（该行为应该完全独立于 selectizeInput）没有响应：我可以单击它，但没有打印“TEST”。

有什么想法吗？

谢谢，

杰里米

choice_list=letters[1:5]

shinyApp(
  ui = shinyUI(
    fluidPage(

      selectizeInput("ckbox",label="Letters",
                     choices=setNames(1:length(choice_list),choice_list),
                     selected = 1,multiple=T),

      lapply(1:length(choice_list), function(i) 
        conditionalPanel(
          condition = paste0("input.ckbox.indexOf('",i,"') != -1"),
          numericInput(paste0("numinput",i), choice_list[i], 1)
        )
      ),

      checkboxInput("test", label = "TEST", value = F),
      conditionalPanel(
        condition = "input.test",
        h3("TEST")                
      )
    )
  ), server = shinyServer(
    function(input, output, session)   
    )
)

【参考方案1】：

您的两个问题都与您的第一个条件面板的状况有关。当selectize 元素为空时，input.ckbox 为null，并且在尝试获取indexOf 时出现 JS 错误。

试试这个条件：

condition = paste0("input.ckbox != null && input.ckbox.indexOf('",i,"') != -1")

【讨论】：

谢谢，它确实解决了这两个问题。其实我之前试过这个，但是只有一个“&”，可能是因为我是一个 JS 初学者！谢谢