Discussion :

[StatWom]

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