Sélection de lignes dans Shiny

Bonjour,

je souhaiterais faire un tableau de bord avec l'application Shiny.
Pour cela il faudrait que les résultats statistiques que j'ai obtenus s'affichent par mois.
Mes données allant d'Octobre 2017 à Février 2018, je voudrais "rafraîchir" la page web générée à partir de shiny.
Par exemple je voudrais le nombre d'évènements réalisés en octobre, en novembre, etc. Mais pas sur la même page.
J'ai essayé cela :


library(shiny)
library(pipeR)
library(rAmCharts)

ui <- fluidPage(

# Give the page a title
titlePanel("Analyse des actes de soin enregistrés par le PSR"),

# Generate a row with a sidebar
sidebarLayout(

# Define the sidebar with one input
sidebarPanel(
selectInput("mois", "Sélectionner un mois :", unique(as.character(Data.PSR$Mois)))
),

# Create a spot for the barplot
mainPanel(
amChartsOutput(outputId = "amchart")
)

)
)

server <- function(input, output, session) {
mois <- input$mois
datasetNew <- reactive({
data <- Data.PSR[Data.PSR$Mois==mois,]
return(data)
})

data.Graph.Profession <- datasetNew()
data.Graph.Profession <- data.frame(table(data.Graph.Profession$Profession))
data.Graph.Profession <- data.frame("label"=data.Graph.Profession$Var1,"value"=round(data.Graph.Profession$Freq/sum(data.Graph.Profession$Freq),4)*100)
data.Graph.Profession$label <- as.character(data.Graph.Profession$label)
output$amchart <- renderAmCharts({
amPie(data = data.Graph.Profession, inner_radius = 50, depth = 10, show_values = TRUE)

})
}

# Run the application
shinyApp(ui = ui, server = server)

Mais ça ne marche pas.

Quelqu'un pourrait m'aider ?

Merci et bonne journée à vous