R在传单上添加令人敬畏的标记时，闪亮的图标消失

我在一个仪表板闪亮的应用程序中使用了很棒的传单标记。 有一个有趣的行为一定是由于包之间的一些交互，但我没有设法弄清楚哪一个或什么是工作环境：

加载应用程序时，Font Awesome中的选项卡图标将正确呈现。但是，一旦加载了可怕的标记，选项卡图标就会消失

这里我包括两个行为快照、一个可复制的示例（您可能需要调整点数以创建足够的延迟）和我的会话信息：

库（tidyverse）
图书馆（magrittr）
图书馆（闪亮）
图书馆（shinydashboard）
图书馆（shinyWidgets）
图书馆（shinycssloaders）
图书馆（shinydashboardPlus）
图书馆（单张）
图书馆（单张、附加资料）
图书馆（sf）
图书馆（sp）
点数%
fitBounds（lng1=bb（）[1,1]，lat1=bb（）[2,1]，lng2=bb（）[1,2]，lat2=bb（）[2,2]）
})
}
#运行应用程序
shinyApp（用户界面=用户界面，服务器=服务器）

正如您所见，并非所有图标都会出现这种情况。 而且，如果我使用普通标记，图标不会消失

---

有什么想法吗？谢谢

你知道你真正使用的是tidyverse的哪些软件包吗？当我有时间的时候，我喜欢尝试一些东西，但是我没有加载所有的tidyverse，也不会使用try-search-install-TryGain方法来查找丢失的软件包。显然，问题来自

addawemomemarkers

中的

icon=icon

。如果删除它，侧边栏中的图标将保持不变。这可能是一个bug？AddaWebSomeMarkers中的图标=图标需要在标记中显示图标（在本例中是一个圆圈，但在我开发的应用程序中，这些图标可能是其他图标）。我也会在github的传单上添加一个问题…您可能想要提交一个问题。这个包裹是很久以前寄来的，谢谢！我现在已经在传单和仪表板上发布了一期git。我还验证了使用不同的库来创建Aewome标记图标（例如glyphicons）不会出现问题，因此这是由于字体Aewome造成的冲突。您知道您真正使用的是tidyverse中的哪些软件包吗？当我有时间的时候，我喜欢尝试一些东西，但是我没有加载所有的tidyverse，也不会使用try-search-install-TryGain方法来查找丢失的软件包。显然，问题来自

addawemomemarkers

中的

icon=icon

。如果删除它，侧边栏中的图标将保持不变。这可能是一个bug？AddaWebSomeMarkers中的图标=图标需要在标记中显示图标（在本例中是一个圆圈，但在我开发的应用程序中，这些图标可能是其他图标）。我也会在github的传单上添加一个问题…您可能想要提交一个问题。这个包裹是很久以前寄来的，谢谢！我现在已经在传单和仪表板上发布了一期git。我还验证了使用不同的库来创建awesome标记图标（例如glyphicons）时不会出现问题，因此这是由于字体awesome造成的冲突。

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)