5

我正在尝试使用通过闪亮的下拉菜单插入和退出的滑块制作一个反应式 UI。我有一个带有响应式 UI 滑块的服务器（server.R）：

library(shiny)
shinyServer(function(input, output) {
  output$slider1 <- reactiveUI(function() {
    sliderInput("s1", "slide 1", min = 1,  max = 100, value = 1)  
  })

  output$slider2 <- reactiveUI(function() {
    sliderInput("s2", "slide 2", min = 1,  max = 100, value = 1)   
  }) 
})

我可以使用以下代码（ui.R）正常运行服务器：

library(shiny)
shinyUI(pageWithSidebar(
  headerPanel("Hello Shiny!"),
  sidebarPanel(

    selectInput("dataset", "number of buckets:", 
                choices = c(1,2,3)),

    conditionalPanel(
      condition = "input.dataset==2",
      uiOutput("slider1"),uiOutput("slider2")),

    conditionalPanel(
      condition = "input.dataset==1",
      sliderInput("s1", "slide 1", min = 1,  max = 100, value = 1) 
      )
  ),
  mainPanel(
  )
))

但是如果我尝试让两个条件面板都调用 uiOutput，服务器会冻结：

library(shiny)
shinyUI(pageWithSidebar(
  headerPanel("Hello Shiny!"),
  sidebarPanel(

    selectInput("dataset", "number of buckets:", 
                choices = c(1,2,3)),

    conditionalPanel(
      condition = "input.dataset==2",
      uiOutput("slider1"),uiOutput("slider2")),

    conditionalPanel(
      condition = "input.dataset==1",
      uiOutput("slider1") 
      )
  ),
  mainPanel(
  )
))

我玩过这个，发现任何时候使用相同的条件变量和多个 uiOutput 调用都会发生这种情况。有什么建议么？谢谢。

4

1 回答 1

5

请参阅@Joe 的评论以获取答案。

基本上，outputIDs 和inputIDs必须是唯一的；同一页面上具有相同 ID 的两个 UI 元素发出并出错。这是闪亮的反应性的限制。

@Jim 的解决方法是为客户端使用的每个输出或输入创建多个元素，例如

 output$slider2_1 <- ...
 output$slider2_2 <- ...
于 2014-10-06T08:47:34.547 回答