library(shiny)

ui <- fluidPage(
    sliderInput(inputId = "annee", label = "Choisissez une année:", min=1, max=100, value=2, sep="", animate=TRUE),
    plotOutput(outputId="hist")
)

server <- function(input, output) {
    output$hist <- renderPlot({
        hist(rnorm(input$annee), main = "Titre du graphique")
    })
}

shinyApp(ui = ui, server = server)