从Shinyapps.io下载具有依赖项的传单地图

Question

library(shiny)
library(htmlWidgets)
library(leaflet)
ui <- fluidpage(
  dowloadButton(
    outputId = "saveMap"  
  )
)
server <- function(input,output, session)
{
  output$mapPlot <- renderLeaflet({
    map()
  })
  map <- reactive({
    leaflet()
  })
  output$saveMap <- downloadHandler(
    filename = "test.html",
    content = function(file){
      saveWidget(
        widget = map()
        file = file,
        selfcontained = F
      )
    }
  )
}

下载处理程序在我检索包含所有内容的html文件以运行地图的情况下工作。但是，我应该获取所有依赖项的文件夹，因此当我单击html文件时，地图会正确加载。 html文件中包含内容，但是在浏览器（chrome，firefox，edge）中打开时，什么也没有显示。非常感谢您的帮助。谢谢！