|
|
@@ -1,11 +1,11 @@ |
|
|
|
server <- shinyServer(function(input, output, session) |
|
|
|
{ |
|
|
|
updateDb <- reactiveTimer(4 * 60 * 1000, session) |
|
|
|
## updateDb <- reactiveTimer(4 * 60 * 1000, session) |
|
|
|
|
|
|
|
db <- reactive( |
|
|
|
{ |
|
|
|
req(input$CESP) |
|
|
|
updateDb() |
|
|
|
## updateDb() |
|
|
|
|
|
|
|
db <- dbConnect(SQLite(), "ecn.db", on.exit(dbDisconnect(db), add = T)) |
|
|
|
|
|
|
|