闪亮的滑块

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"))

我得到的行为（至少在我的设置中）。