如何在rstudio中获得闪亮的静态tmap？

如何解决如何在rstudio中获得闪亮的静态tmap？

我正在学习闪亮和 tmap。 我能够在 Rstudio（静态 tmap）上获得我想要的地图。 但是当我尝试一个类似的带有shiny的tmap代码时，我总是得到一个交互式地图。

从这个 reprex 中，我尝试获得与我在 Rstudio 上获得的相同的地图。 我尝试在渲染图之后添加 tmap_mode("plot")，但它不起作用。

我的问题看起来太简单了……但找不到答案！ 感谢您的帮助。

library(shiny)

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


ui <- fluidPage(
  tmapOutput("map"),selectInput("var","Variable",world_vars)
)

server <- function(input,output,session) {
  output$map <- renderTmap({
    tmap_mode("plot")
    tm_shape(World) +
      tm_polygons(world_vars[1],zindex = 401)
  })
}   

shinyApp(ui,server)