Slider in Shiny

Question

スライダーをshinyに実装したいと思います。私server.R側 私は私のui.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" 
     )   

    } 
}) 

を持っている私は、この持っている：私はアプリの中で何を得る

uiOutput("daterange") 

はスライダーが、私は、テキストを入力できるフィールドではありませんが...

なぜですか？

Answer 1

私は動作を取得この

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

を追加すると はどうやらjQueryがshiny とうまく再生されない（少なくとも私の設定で）。