@@ -1,7 +1,8 @@ | |||||
# Bienvenue sur **Celine 2.0** | # Bienvenue sur **Celine 2.0** | ||||
La navigation se fait à l'aide des onglets en haut de la page. | |||||
L'actualisation de la page se fait automatiquement lorsque de nouvelles données sont disponibles. | |||||
La navigation se fait à l'aide des onglets en haut de la page. | |||||
Il faut actualiser la page pour afficher les nouvelles données disponibles. | |||||
## Listing | ## Listing | ||||
@@ -1,11 +1,11 @@ | |||||
server <- shinyServer(function(input, output, session) | server <- shinyServer(function(input, output, session) | ||||
{ | { | ||||
updateDb <- reactiveTimer(4 * 60 * 1000, session) | |||||
## updateDb <- reactiveTimer(4 * 60 * 1000, session) | |||||
db <- reactive( | db <- reactive( | ||||
{ | { | ||||
req(input$CESP) | req(input$CESP) | ||||
updateDb() | |||||
## updateDb() | |||||
db <- dbConnect(SQLite(), "ecn.db", on.exit(dbDisconnect(db), add = T)) | db <- dbConnect(SQLite(), "ecn.db", on.exit(dbDisconnect(db), add = T)) | ||||