R Блестящие значки исчезают, когда в листовку добавляются удивительные маркеры - PullRequest
Новая
       39

R Блестящие значки исчезают, когда в листовку добавляются удивительные маркеры

0 голосов
/ 10 марта 2020

Я использую удивительные маркеры с листовкой в ​​блестящем приложении на приборной панели. Есть забавное поведение, которое должно происходить из-за некоторого взаимодействия между пакетами, но мне не удается выяснить, каким или каким обходным путем может быть:

при загрузке приложения, значки вкладок из шрифта Круто рендерит правильно. Однако после загрузки удивительных маркеров значки вкладок исчезают.

Здесь я включаю два снимка поведения, воспроизводимый пример (вам может потребоваться настроить количество точек для создания достаточной задержки) и мой сеанс информация:

enter image description here

enter image description here

library(tidyverse)
library(magrittr)
library(shiny)
library(shinydashboard)
library(shinyWidgets)
library(shinycssloaders)
library(shinydashboardPlus)
library(leaflet)
library(leaflet.extras)
library(sf)
library(sp)

points <- tibble(ID=c(1:2000),
                 Lat=53+runif(2000, 0, 1),
                 Lon=runif(2000, 0, 1))

points %<>%
    st_as_sf(coords=c('Lon', 'Lat'), crs=4326)

# Define UI
ui <- dashboardPage(

    dashboardHeader(title = "App"),

    dashboardSidebar(
        sidebarMenu(
            menuItem("Map", tabName = "Map", icon = icon("map-marked-alt", lib="font-awesome")),
            menuItem("Other tab", tabName = "Other", icon = icon("volume-up", lib="font-awesome")),
            menuItem("Third tab", tabName = "Third", icon = icon("file-medical-alt", lib="font-awesome"))
        )
    ),

    dashboardBody(
        tabItems(
            tabItem(
                tabName = "Map",
                # Map box
                boxPlus(width=12,
                        height=800,
                        status='warning',
                        withSpinner(leafletOutput("Network", height = 750))
                        )
                )
            )
        )
)

server <- function(input, output) {

    # Calculate bounding box
    bb <- reactive({
        points %>%
            as(., 'Spatial') %>%
            .@bbox %>%
            unname
    })

    # Map
    output$Network <- renderLeaflet({

        Icon <- awesomeIcons(icon = 'circle', iconColor = 'black', library = 'fa', markerColor = 'lightgreen')
        leaflet(options = providerTileOptions(minZoom = 1, maxZoom = 32)) %>%
            addTiles() %>% 
            addAwesomeMarkers(data=points, icon=Icon, label=~ID, layerId=~ID) %>%
            fitBounds(lng1=bb()[1,1], lat1=bb()[2,1], lng2=bb()[1,2], lat2=bb()[2,2])
    })
}

# Run the application 
shinyApp(ui = ui, server = server)

enter image description here

Как видите, это происходит не со всеми иконками. Кроме того, значки не исчезают, если я использую нормальные маркеры.

Есть идеи? Спасибо !!

...