Листовка не отображается в блестящем приложении, а отображается в консоли - PullRequest
Новая
       14

Листовка не отображается в блестящем приложении, а отображается в консоли

0 голосов
/ 26 октября 2019

Я создаю приборную панель Shiny App, которая включает в себя построение карты с использованием широт и долгот с помощью Leaflet на одной из вкладок. Мне нужен Leaflet для Zoom и всплывающее окно. Тем не менее, карта не отображается в приложении, она не выдает никакой ошибки и показывает серое пространство, где в идеале должна быть карта. Таких проблем с консолью R не было, и карта отлично отображалась.

Я нашел похожую проблему по ссылке ниже, но она не решает мою проблему. Карта Shiny / Leaflet не рендерится .

Я также попробовал обходной путь, упомянутый по этой ссылке ниже, но он ломает мои другие графики. 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)

1 Ответ

0 голосов
/ 29 октября 2019

Я нашел решение этой проблемы, удаление frameWidget () с конца решило проблему, спасибо!

...