invalidateLaterで制御する感じか。あとはまともなリアルタイムデータソースにつなげばたのしそう。ものはこちら。 https://teramonagi.shinyapps.io/lefproxy コードは以下でOK. library("shiny") library("leaflet") ui <- bootstrapPage( tags$style(type…