tmap方面没有'；我不会在R区出现

我试图使用tmap facets创建一个并排的同步choropleth贴图（请参阅），但facet函数在R Shining中不起作用（我的代码没有错误，但贴图没有显示）。但是，当我运行facets贴图的常规R代码时，它工作得很好。有人能帮我吗

这是我的密码：

library(shiny)    # for shiny apps
library(leaflet)  # renderLeaflet function
#library(spData)   # loads the world dataset 
library(tmap)
library(readr)
library(sf)
library(dplyr)
library(mapview) # for interactive maps
#tmap_mode("view")
CANCER_raw <- st_read("F:/appR-upload/cancer_sample_data.csv")
SD_SRA_raw <- st_read("F:/appR-upload/polygon/polygon.shp")

cancer_data <- data.frame(
      SRAID = CANCER_raw$GeoID,   
      SRA_Name = CANCER_raw$Geography, 
      Condition = CANCER_raw$CONDITION,
      Outcome = CANCER_raw$OUTCOME,
      Year = CANCER_raw$Year,
      Total = CANCER_raw$Total,
      TotalRate = CANCER_raw$TotalRate,
      AARate = CANCER_raw$AARate
    )

sd_sra <- data.frame(
      SRAID = SD_SRA_raw$SRA, 
      SRA_Name = SD_SRA_raw$SRA_Name,
      geometry = SD_SRA_raw$geometry
    )

sd_sra_cancer <- st_as_sf(left_join(sd_sra, cancer_data, by = 'SRAID'))


ui <- fluidPage(
  leafletOutput(outputId = "map")
)

server <- function(input, output, session) {

    output$map <- renderLeaflet(
      {
        tmap_mode("view")
        tm <- tm_shape(sd_sra_cancer) +
          tm_polygons(c("Total", "TotalRate")) +
          tm_facets(sync = TRUE, ncol = 2)

        tmap_leaflet(tm)
      }
    )}

shinyApp(ui, server)

library（闪亮）#用于闪亮的应用程序
图书馆（单张）#RenderLablet功能
#库（spData）#加载世界数据集
图书馆（tmap）
图书馆（readr）
图书馆（sf）
图书馆（dplyr）
库（mapview）#用于交互式地图
#tmap_模式（“视图”）
生癌