当selectInput（）更改时，从sliderInput（）更改为numericInput（）

Question

这很普通，但是在原始代码中使用if方法时，使用此方法（请参阅下文）会引发有关if语句的多个警告（在此显示太长时间）。因此，当sliderInput()更改时，是否有适当的方法从numericInput()切换到selectInput()？非常感谢...

  

编辑：示例未正确复制。代码现在返回警告。   错误显然是由value = c(0, 10)中的numericInput()造成的，这当然需要一个值。请原谅我跳进去...

library(shiny)

ui <- fluidPage(
  selectInput("option", "Select option", c("Slider", "Numeric")),
  uiOutput("op")
)

server <- function(input, output, session){
  output$op <- renderUI(
    if(input$option == "Slider"){
      sliderInput(inputId = "sip", 
                  label = "Slider", 
                  min = 0, 
                  max = 10, 
                  value = c(0, 10))
    } else {
      if(input$option == "Numeric"){
        numericInput(inputId = "nip", 
                     label = "Numeric", 
                     min = 0, 
                     max = 10,
                     value = c(0, 10)) #Single value required
      }
    }
  )
}

shinyApp(ui = ui, server = server)