关于shiny，请看这个例子：
library(shiny)
server <- function(input, output) {
p <- reactiveValues(value = 1)
observe({
invalidateLater(3000)
isolate(
p$value <- p$value + 1
)
})
output$out <- renderPrint({
p$value
})
}
ui <- fluidPage(
verbatimTextOutput('out')
)
shinyApp(ui, server)
