为什么 Leaflet 在 R/Shiny 中发出此警告：忽略附加内容； appendContent 不能用于闪亮的渲染调用

Question

我想在 Shiny 应用程序中使用带有传单的 tmap，因为我想在专题地图上绘制。但是，使用 tmap_leaflet 创建传单对象似乎会生成一个警告，我找不到答案：

library(shiny)
library(tmap)
library(leaflet)

data(World)
world_vars <- setdiff(names(World), c("iso_a3", "name", "sovereignt", "geometry"))


ui <- fluidPage(
  leafletOutput("map"),
)

server <- function(input, output, session) {
  output$map <- renderLeaflet({
    t <- tm_shape(World) +
      tm_polygons(world_vars[1], zindex = 401)
    
    tmap_leaflet(t)
  })
  
}   

shinyApp(ui, server)

结果是：

Warning in renderWidget(instance) :
  Ignoring appended content; appendContent can't be used in a Shiny render call

地图已绘制，但我担心在部署到 Shinyapps 时会遇到错误，如 previous posting on SO.

单独使用 tmap 很好（但我不能画圆圈），单独使用 Leaflet 很好（但与 tmap 相比，qtm 不适合主题地图）而且我不想遇到问题.我可以抑制警告，但这并没有触及问题的根源。