Slider in Shiny

Question

Ich möchte einen Schieberegler in shiny implementieren. Auf meiner server.R Seite Ich habe diese

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

    } 
}) 

Auf meiner ui.R Seite Ich habe dies:

uiOutput("daterange") 

Was ich in der App bekommen ist kein Schieber, sondern ein Feld, wo ich Text eingeben kann ...

Warum ist das?

Answer 1

Verstanden. Offenbar jQuery nicht gut mit shiny spielt Wenn ich diese

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

ich das Verhalten bekommen

hinzufügen (zumindest in meinem Setup).