时间戳

首页 > 解决方案 > 在 Mapbox GL 中为 R-Shiny 中的 Leaflet 创建弹出窗口？

r - 在 Mapbox GL 中为 R-Shiny 中的 Leaflet 创建弹出窗口？

问题描述

我发现不可能添加可以通过 R 的 Leaflet.MapBoxGL 库添加到 JS 中的弹出窗口。该库缺少本机弹出功能。

谁能给我一些关于如何增加代码以便在 R 中执行此操作的指示。如果可能的话，我宁愿不放弃我的工作并在 JS 中重新开始。

  library(shiny)
  library(leaflet)
  library(leaflet.mapboxgl)

  ui <- fluidPage(
      titlePanel("Panel"),
    leafglOutput("map")
  )

  server = function(input, output, session) {
    map = createLeafletMap(session, 'map')
    session$onFlushed(once = T, function() {

  output$map <- renderLeaflet({
      leaflet(quakes) %>%
    addProviderTiles(providers$Stamen.TonerLite,
    options = pathOptions(pane = "background_map")) %>%
      addMapboxGL(style = "mapbox://styles/thirdhuman/cjzn4e0xz1ed41cnq6ni0qckl",
                ,group = "Rural"
                ,layerId = "Rural"
                ,popup = paste0(
                         "<b>Country: </b>")
                ,option = pathOptions(pane = "Rural"))
       })
    })
  }

  shinyApp(ui, server)

错误：

  Warning: Error in addMapboxGL: unused argument (popup = paste0("<b>Country: 
  </b>"))

我想找出一些方法来完成这项工作。上面是最小的例子，但我的真实代码有多层这些 MapBoxGL 样式层。

标签： rshinyleafletmapbox

解决方案

推荐阅读