为何在Shiny中调用tmap_leaflet生成Leaflet对象会触发警告？

问题场景 #

在Shiny应用中结合tmap制作专题地图，再通过tmap_leaflet()转为Leaflet对象时，出现以下警告：

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

当前地图可正常渲染，但担心部署到Shinyapps时出现潜在错误，且不想仅通过抑制警告回避问题，同时需要兼顾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)

警告根源 #

tmap_leaflet() 内部会调用appendContent()来添加图例等附加元素，但Shiny的renderLeaflet()渲染函数不允许在其内部使用appendContent()，因此触发该警告。

解决方案 #

使用tmap原生的Shiny组件配合leafletProxy，既能保留tmap的专题地图能力，又能自由扩展Leaflet的图形功能，同时彻底消除警告：

修改后的代码 #

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

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

ui <- fluidPage(
  tmapOutput("map"), # 替换为tmap的输出组件
)

server <- function(input, output, session) {
  # 用tmap专属的renderTmap生成专题地图
  output$map <- renderTmap({
    tm_shape(World) +
      tm_polygons(world_vars[1], zindex = 401)
  })
  
  # 通过leafletProxy添加Leaflet支持的图形（示例：添加圆形）
  observe({
    leafletProxy("map") %>%
      addCircles(
        lng = 0, 
        lat = 0, 
        radius = 1000000,
        color = "red",
        fillOpacity = 0.2
      )
  })
}   

shinyApp(ui, server)

方案说明 #

1. 替换输出组件：用tmapOutput()替代leafletOutput()，匹配tmap的渲染逻辑。
2. 使用renderTmap：renderTmap()是tmap专为Shiny设计的渲染函数，不会触发appendContent()相关的警告。
3. 扩展Leaflet功能：通过leafletProxy()可以在已渲染的tmap地图上，自由添加Leaflet支持的所有图形（如圆形、标记、折线等），完美兼顾两者的优势。

内容的提问来源于stack exchange，提问作者Polonium