在未地理参考的 R 中绘制本地图块

如何解决在未地理参考的 R 中绘制本地图块

我正在尝试从一个闪亮的应用程序中使用 gdal2tiles 创建的图像金字塔绘制本地地图图块。我可以得到这些来绘制将数据放在“www”文件夹中，但是当它在应用程序中输出时，它没有正确地理参考并位于底图顶部。图像金字塔是使用投影 epsg:3857 创建的，用于在带有调用的传单中映射：

python3 -m gdal2tiles -p raster -z 0-7 -w leaflet -r cubic -s epsg:3857 -a 0.0 -k "D:\\test\\063-05_2015a_4BAND_3857.tif" "D:\\test\\leafletproj3857"

闪亮脚本示例：

library(shiny)
library(leaflet)
library(dplyr)
library(shinycssloaders)

server <- function(input,output,session) {
  output$myMap<- renderLeaflet({
    m <-leaflet() %>%
      leaflet::addProviderTiles(leaflet::providers$Stamen.TonerLite,group = "Stamen Toner Lite")    %>%
      addTiles(urlTemplate = "tiles/{z}/{x}/{y}.png",options=tileOptions(Nowrap = TRUE,continuousWorld = TRUE,tileSize="256",tms=TRUE),group='Image') %>%
      addLayersControl(
        overlayGroups = c("Image"),options = layersControlOptions(collapsed = FALSE))
    m
  })
}

ui <-  fluidPage(
  titlePanel("Example local-tiles"),sidebarLayout(
    sidebarPanel(
      p("Example"),),# plot the map
    mainPanel(
      leaflet::leafletoutput('myMap',width="100%",height=700) %>%  
        shinycssloaders::withSpinner(color="#3F9C35",type=6)    )
  )
)

shiny::shinyApp(ui = ui,server = server)

我是否遗漏了一些明显的东西？