Question

我正在创建一个Shiny App仪表板，其中涉及在其中一个标签中使用“经度”和“经度”来绘制地图。我需要Leaflet for Zoom和弹出选项。但是，该地图未在应用程序中呈现，它不会引发任何错误，并显示了理想情况下该地图应位于的灰色空间。 R控制台没有此类问题，它完美地呈现了地图。

我在下面的链接中发现了类似的问题，但它不能解决我的问题。 Shiny/Leaflet map not rendering。

我也尝试了下面此链接中提到的解决方法，但它打破了我的其他计划。 https://github.com/rstudio/shiny/issues/650

ui <- dashboardPage(
  dashboardHeader(title = "Crimes Dashboard"),

  dashboardSidebar(
    sidebarMenu(
      menuItem("Tab1", tabName = "Tab1" , icon=icon("th")),
      menuItem("Tab2", tabName = "Tab2" , icon=icon("th")),
      menuItem("Tab3", tabName = "Tab3" , icon=icon("th")),
      menuItem("Tab4", tabName = "Tab4" , icon=icon("th"))
    )
  ),

  dashboardBody(
    tabItems(

      #Fourth Tab
      tabItem(tabName = "Tab4",
              h2("Tab4"),
              leafletOutput(outputId = "mymap")


      )

    )
  )
)


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

  reactive_data2 <- reactive({
  crime <- crime[-which (is.na(crime$Location)),]
  })

  output$mymap <- renderLeaflet({

    reactive_data2() %>%
    mutate(popup = str_c(Date,
                         Block,
                         str_c("Location type:", `Location Description`,
                               sep = " "),
                         sep = "<br/>")) %>%
    leaflet() %>%
    addTiles() %>%
    addMarkers(clusterOptions = markerClusterOptions(),popup = ~popup) %>%
    frameWidget() 

  })
}

shinyApp(ui, server)

Answer 1

我找到了解决方案，最终删除了frameWidget（）即可解决问题，谢谢！

传单地图不是在闪亮的应用程序中呈现，而是在控制台中呈现

1 个答案: