Процесс. Близко () не завершает созданный процесс, c#

Я немного изменил пример shiny из http://shiny.rstudio.com/gallery/current-time.html , чтобы помочь отображать время в поле textInput, как было запрошено:

library(shiny)
ui <- shiny::fluidPage(shiny::uiOutput("ui"))

server <- function(input, output, session) {  
  output$ui <- shiny::renderUI({
    invalidateLater(1000, session)
    shiny::textInput(
      inputId = "time",
      label = "Today's Time",
      value = as.character(format(Sys.time(), "%H:%M", "EST"))
    )
  })
}

shiny::shinyApp(ui = ui, server = server)