Slider in Shiny

Question

我想在shiny中实现滑块。 在我server.R身边，我有这个

output$daterange <- renderUI({ 
    if((input$var1 == 6)) { 
     sliderInput(inputId = "daterange", 
       label = "Datum", 
       min = as.Date("2019-01-01"), 
       max = as.Date("2001-01-01"), 
       value = as.Date("2001-01-01"), 
       timeFormat = "%b %Y" 
    )   

    } else { 
     sliderInput(inputId = "daterange", 
       label = "Datum", 
       min = as.Date("1990-01-01"), 
       max = as.Date("2000-01-01"), 
       value = as.Date("1990-01-01"), 
       timeFormat = "%b %Y" 
     )   

    } 
}) 

在我ui.R身边，我有这样的：

uiOutput("daterange") 

我得到的应用程序是不是一个滑块，但场在那里我可以输入文本...

这是为什么？

Answer 1

明白了。 显然jQuery不shiny 当我加入这个

tags$body(tags$script(src="https://ajax.googleapis.com/ajax/libs/jquery/3.0.0/jquery.min.js")) 

我得到的行为发挥好（至少在我的设置）。