依赖于单个复选框的闪亮滑块

Question

我有一个闪亮的应用程序，我试图让两个滑块仅在选中复选框时出现。下面是我试图开始工作但没有看到 UI 的代码。

library(shiny)

ui <- fluidPage(

  checkboxInput("box_checked", "box_checked", value = FALSE),
  uiOutput("test")
)

# Define server logic 
server <- function(input, output) {

  output$test = renderUI({
    if (input$box_checked = 0){
      return(NULL)
    }


    if(input$box_checked = 1){
      sliderInput("sliderOne", "Choose your value", min=0, max=100, value=50)
      sliderInput("sliderTwo", "Choose your other value", min=0, max=50, value=25)
    }

  })


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

Answer 1

试试这个方法：

library(shiny)

ui <- fluidPage(checkboxInput("box_checked", "box_checked", value = FALSE),
                uiOutput("test"))

# Define server logic
server <- function(input, output) {
  output$test = renderUI({
    if (input$box_checked == 0) {
      return(NULL)
    }


    if (input$box_checked == 1) {
      list(
        sliderInput(
          "sliderOne",
          "Choose your value",
          min = 0,
          max = 100,
          value = 50
        ),
        sliderInput(
          "sliderTwo",
          "Choose your other value",
          min = 0,
          max = 50,
          value = 25
        )
      )
    }

  })


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

1. 我修复了if 语句，因为您使用input$box_checked = 1 而不是input$box_checked == 1。
2. 您应该使用list() 在renderUI 中生成多个UI 元素。