Question

我遇到以下代码问题。我的目标是基于“selectizeInput”显示一些“numericInput”。它有效，但我有两个问题：

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

有什么想法吗？

谢谢，

的Jérémy



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) {  
    })
)

Answer 1

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

试试这个条件：

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

Shiny：基于selectizeInput的conditionalPanel问题

1 个答案: