With tests I meant I was changing code several times. The piece of code is the following:
In ui:
fluidRow(column(6,uiOutput('timer')))
In server :
server <- function(input,output,session){
update_time <- reactive({
invalidateLater(1000)
trunc(Sys.time() - time)
})
output$timer <- renderText({
paste('Execution time :',update_time(),' seconds',sep='')
})
I set time as a global variable at the beginning of the app.
The code runs perfect until I press whatever action button I have in the app.
How can I handle this issue?
Thanks in advance.