闪亮/传单地图无法渲染

Question

我无法在我闪亮的应用程序中获取传单地图，尽管代码本身在闪亮之外。我没有得到任何错误，所以我被困住了，任何帮助都表示赞赏。

示例数据：

cleanbuffalo <- data.frame(name = c("queen","toni","pepper"), 
                           longitude = c(31.8,32,33), 
                           latitude = c(-24,-25,-26))

闪亮的用户界面：

vars <- c(
  "Pepper" = "pepper",
  "Queen" = "queen",
  "Toni" = "toni"
)

shinyUI(navbarPage("Buffalo Migration", id ="nav",

  tabPanel("Interactive Map",

div(class="outer",

    leafletOutput("map", width = "100%", height = "100%"),
    #Panel Selection
    absolutePanel(id = "controls", class = "panel panel-default", fixed = TRUE,
      draggable = TRUE, top = 60, left = "auto", right = 20, bottom = "auto",
      width = 330, height = "auto",

      h2("Buffalo Migration"),
      #Buffalo Group selection
      checkboxGroupInput(
        "checkGroup", label = h3("Select Buffalo to Follow"),
        choices = vars,
        selected = 1)
          )
        )
      )
  )
)

Shiny Server：

library(shiny)
library(dplyr)
library(leaflet)
library(scales)
library(lattice)

shinyServer(function(input, output, session) {
  output$map <- renderLeaflet({
    leaflet() %>% addTiles() %>% setView(lng = 31.88, lat = -25.02, zoom=1)
  })

Answer 1

由于leafletOutput中的height参数，它不起作用。奇怪的是，如果你在%中指定它，地图就不会显示，但是如果你使用“px”（或一个将被强制转换为字符串且附加了“px”的数字），它确实可以正常工作。

leafletOutput("map", width = "75%", height = "500px")收益：

我不知道为什么会发生这种情况，但是如果你想在leafletOutput中指定%的高度，你可以将它包装成div并给它适当的高度。

默认情况下，宽度设置为100%，高度设置为400px。因此，您不必指定这些参数 - 只有在我想要更改输出的大小时才会这样做。

leafletOutput(outputId, width = "100%", height = 400)