如何使用invalidateLater闪亮删除传单中的闪烁

Question

这是一个我认为从未解决过的老问题。使用invalidateLater()时在传单地图中闪烁。

示例

应用代码：

library(shiny)
library(leaflet)

ui <- fluidPage(

            tags$style(type="text/css", ".recalculating { opacity: 1.0 !important; }"),

            leafletOutput("mymap")

      )

server <- function(input, output, session) {

      output$mymap <- renderLeaflet({

            invalidateLater(1000)
            leaflet(quakes[1:10,])%>% 
                  addTiles() %>%
                  addMarkers()
      })
}

shinyApp(ui, server)

Joe Cheng建议here

tags$style(type="text/css", ".recalculating { opacity: 1.0 !important; }")

它的效果非常好，例如在ggplot2图表中，但不在leaflet地图中。

是否有解决方法如何在此应用中删除闪烁？谢谢！