Question

我使用下面的代码从我的数据创建复选框。我想为列表中选择的每个复选框创建滑块输入。例如，如果复选框有4个变量，如＆＃34; sky＆＃34;，＆＃34;地球＆＃34;＆＃34;水＆＃34;＆＃34;火＆＃34;如果我选择天空，它应该动态打开天空的滑块输入，如果我选择水，它应该打开另一个水滑块输入。我尝试了conditionalPanel，但是我的复选框中有50多个变量，所以我不能为所有50个变量写条件。闪亮有没有任何通用方法？

服务器

output$choosedigital=renderUI({

if(is.null(bk$variables))
   return()

checkboxGroupInput("choosemedia", "Choose digital", 
                    choices  = bk$variables,
                    selected = bk$variables)
})


  output$test <- renderUI({
  LL <- list(rep(0,length(input$choosedigital)))     
  for(i in 0:(length(input$choosedigital))) {
   LL[i] <- list(sliderInput(inputId = paste(input$choosedigital,i)
                             , label = paste(input$choosedigital,i), 
  min=0,max=25,value = 5))
  }       
  return(LL)                      
  })

Answer 1

您希望将sliderInput放入UI中的conditionalPanel并设置条件，以便在单击相关复选框时条件等于TRUE。

e.g。

library(shiny)
myData = c("One", "Two", "Three")

ui <- fluidPage(

  checkboxGroupInput("choosemedia", "Choose digital", 
                     choices  = myData,
                     selected = myData),
  textOutput("myText"),
  conditionalPanel(condition = "input.choosemedia.includes('One')", 
                   sliderInput("sliderOne", "Choose your value", min=0, max=100, value=50)
  ),
  conditionalPanel(condition = "input.choosemedia.includes('Two')",
                   sliderInput("sliderTwo", "Choose your other value", 

min=0, max=50, value=25))
    )

# Define server logic 
server <- function(input, output) {
  output$myText <- renderText({input$choosemedia})

}
# Run the application 
shinyApp(ui = ui, server = server)

只要您知道bk $变量的内容是什么，就可以对它们进行硬编码，否则您必须动态生成这些内容。

希望这足以让你前进。

R shiny基于复选框输入的多个滑块输入

1 个答案: