output$numero_assoluto <- renderDataTable({
if (input$regione != "Tutti") {
cols = c('Area Territoriale','Regione','Provincia','Scuole Candidabili',
'Scuole chi hanno Iniziato', 'Scuole chi hanno Inoltrato')
}
else {
cols = c('Area Territoriale','Regione','Scuole Candidabili',
'Scuole chi hanno Iniziato', 'Scuole chi hanno Inoltrato')
}
datatable(
grouped_df(),
options = list(pageLength = 50, scrollX = TRUE, scrollY = "700px"),
colnames = cols,
rownames = FALSE
)
})
output$percentuali <- renderDataTable({
if (input$regione != "Tutti") {
cols = c('Area Territoriale','Regione','Provincia','Scuole Candidabili',
'Scuole chi hanno Iniziato', 'Scuole chi hanno Inoltrato')
}
else {
cols = c('Area Territoriale','Regione','Scuole Candidabili',
'Scuole chi hanno Iniziato', 'Scuole chi hanno Inoltrato')
}
datatable(
percent_df(),
options = list(pageLength = 50, scrollX = TRUE, scrollY = "700px"),
colnames = cols,
rownames = FALSE # strange, gives a "no matching records found" message when this is enabled
) %>%
formatRound(columns = c('Iniziato', 'Inoltrato'), digits=2)
})