Я использую удивительные маркеры с листовкой в блестящем приложении на приборной панели. Есть забавное поведение, которое должно происходить из-за некоторого взаимодействия между пакетами, но мне не удается выяснить, каким или каким обходным путем может быть:
при загрузке приложения, значки вкладок из шрифта Круто рендерит правильно. Однако после загрузки удивительных маркеров значки вкладок исчезают.
Здесь я включаю два снимка поведения, воспроизводимый пример (вам может потребоваться настроить количество точек для создания достаточной задержки) и мой сеанс информация:
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)
Как видите, это происходит не со всеми иконками. Кроме того, значки не исчезают, если я использую нормальные маркеры.
Есть идеи? Спасибо !!