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

Что я получаю в App это не слайдер, а поле, где я могу ввести текст ...

Почему?

Answer 1

Got it. Видимо jQuery не играть хорошо с shiny Когда я добавляю этот

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

я получаю поведение (по крайней мере, в моем настроить).