Shiny和Shinycssloaders：与withSpinner的传单交互：无法正确呈现

Question

我有一个Shiny应用程序，我想向其中添加加载微调器。我已经使用了Shinycssloaders包和withSpinners函数。除使用传单外，它们均能完美工作。在没有withSpinners的情况下，小叶可以正确呈现，但是，当调用该功能时，微调器将一直显示直到小叶将正常呈现为止，然后该图将显示为空白，并且在浏览器控制台中我收到了其他情况不会发生的错误。

UI代码：

leafletOutput("map", width="100%", height="100%") %>% withSpinner()

服务器代码：

  output$map <- renderLeaflet({
    leaflet() %>% addTiles()
  })

控制台错误：

Uncaught TypeError: Cannot read property 'clearGroup' of undefined
    at String.<anonymous> (leaflet.js:1313)
    at Function.each (jquery.min.js:2)
    at e.methods.clearGroup (leaflet.js:1312)
    at ShinyApp.<anonymous> (leaflet.js:807)
    at ShinyApp._sendMessagesToHandlers (shinyapp.js:529)
    at ShinyApp.<anonymous> (shinyapp.js:640)
    at ShinyApp._sendMessagesToHandlers (shinyapp.js:529)
    at ShinyApp.dispatchMessage (shinyapp.js:515)
    at WebSocket.c.onmessage (shinyapp.js:112)

任何帮助将不胜感激。