闪亮的滑块答案

【问题标题】：Slider in Shiny闪亮的滑块
【发布时间】：2016-06-30 09:22:51
【问题描述】：

我想在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")

我在 App 中得到的不是滑块，而是一个可以输入文本的字段...

这是为什么呢？

【问题讨论】：

请提供ui.R和server.R代码，以便我们重现问题。见shiny::shinyApp(ui = ..., server = ...)

标签： r shiny

【解决方案1】：

知道了。显然jQuery 不能很好地与shiny 配合使用当我添加这个

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

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

【讨论】：