R 将shiny与tmap组合以显示交互式地图

我有下面的数据框，我想为它创建一个choropleth映射。我从下载了德国shapefile，现在我正试图通过使用tmap交互版的闪亮应用程序来显示它。这可能吗？通过shiny还有其他交互式解决方案吗

library(tidyverse)
library(sf)
library(shiny)
library(ggplot2)
library(tmap)

region<-c("09366", 
          "94130", 
          "02627", 
          "95336", 
          "08525", 
          "92637", 
          "95138", 
          "74177", 
          "08606", 
          "94152" )


value<-c( 39.5, 
          519.,  
          5.67,
          5.10,
          5.08,
          1165,  
          342,  
          775,  
          3532,  
          61.1 )

df<-data.frame(region,value)

ui <- fluidPage(
  plotOutput("map")
)

server <- function(input, output) {
  germany_sf <- sf::st_read(dsn = "plz-gebiete.shp") %>% 
    left_join(df, by = c("plz" = "region"))
output$map<-renderPlot({
  tmap_mode("view")
  
  tm_shape(shp = germany_sf) + 
    tm_polygons(col = "value", border.alpha = 0)
})  
  
  
}

shinyApp(ui, server)

库（tidyverse）
图书馆（sf）
图书馆（闪亮）
图书馆（GG2）
图书馆（tmap）
区域使用
tmapOutput
和
renderTmap
而不是
plotOutput
和
renderPlot