sliderInput pour la date

Je fais de l'animation à l'aide de animationOptions dans sliderInput(). Je veux utiliser la date/daterange dans un curseur, mais sliderInput() n'accepte pas de date. Il y avait un post dans le brillant du groupe. A compter de Mars 2013, il n'y avait pas encore trouvé de solution. J'ai donc cherché et j'ai appris que l'on peut réaliser cela à l'aide de JavaScript. Voici la post. Malheureusement, je ne peux pas écrire en JS. Donc, j'ai cherché autour de plus et est venu avec ce lien et a écrit les codes suivants. Cela fonctionne, mais les chiffres du curseur sont source de confusion. Est-ce la seule manière dont on peut déplacer et utiliser la date de sliderInput()? Merci beaucoup d'avoir pris de votre temps.

serveur.R

library(shiny)

shinyServer(function(input, output, session) {


observe({
    updateDateInput(session, "ana", value = as.Date("2014-07-01") + input$foo)
})

output$preImage <- renderImage({


filename <- normalizePath(file.path('./www',
                          paste(input$ana, '.png', sep='')))

list(src = filename,
     alt = paste("There is no image for ", input$ana, ".", sep = ""))

}, deleteFile = FALSE)

})

de l'interface utilisateur.R

shinyUI(pageWithSidebar(

    headerPanel("renderImage example"),

sidebarPanel(

    sliderInput("foo", "Animation duration", min = -30,
                max = 30, value = 0, step = 1,
                animate = animationOptions(loop = TRUE, interval = 1000)),

    dateInput("ana", "Choose a date:", value = as.Date("2014-07-01"))

    ),

mainPanel(

# Use imageOutput to place the image on the page
imageOutput("preImage")

    )
))

source d'informationauteur jazzurro