r - 为什么在 R Shiny 中使用 shinyscreenshot 包时传单地图截图会损坏？

Question

我想获取当前页面截图。但我总是得到破碎的传单地图截图。

你能帮帮我吗？

我使用闪亮的、闪亮的仪表板、传单、闪亮的屏幕截图.. 包

用户界面

tags$div(
      id = "main",
      style = "",
      tags$div(
        class = "box-body",
        leafletOutput("map",width=150,height=150)
      )
    )

服务器.R

observeEvent(input$go2, {
screenshot(
  selector = "body",
  filename = "shinyscreenshot11",
  scale = 1,
  timer = 1
)})

 output$map <- renderLeaflet({
  leaflet() %>% 
  addTiles() %>% 
  setView(127.68110377512068,36.35494189163784, zoom = 6)%>% 
  addPolygons(data=data_map,
              color = 'black', 
              weight = 1, 
              stroke = T, 
              fillOpacity = 0.5, 
              label = vec_label,
              layerId =  ~ CTPRVN_CD,
              #popup = vec_popup,
              #popupOptions = popupOptions(maxWidth ="100%", closeOnClick = TRUE),
              fillColor = ~pal_SIG_CD(CTPRVN_CD), 
              highlight = highlightOptions(
                weight = 2.5))%>%
  addMinicharts(
    mydata$lng, mydata$Lat,
    type = "bar",
    chartdata = mydata$VALUE,
    width = 20, height = 45
)})

全局.R

library(shiny)
library(shinydashboard)
library(shinyjs)
library(shinyscreenshot)
library(leaflet) 
library(leaflet.minicharts)

setwd("C:/Users/khoh/Desktop/R/nosaDataVisualization")
data_map<-shapefile("./CTPRVN_202101/TL_SCCO_CTPRVN.shp")
data_map = spTransform(data_map, CRSobj = CRS('+proj=longlat +datum=WGS84'))

test=read_excel("./test.xlsx")
mydata=as.data.frame(test)
mydata$Lat <- as.numeric(mydata$Lat)
mydata$lng <- as.numeric(mydata$lng)

截图结果：