Awesome Markers clash with shiny icons in dashboard

[fcecinati]

I encountered a problem with awesome markers interacting with other shiny app icons: I am using Font Awesome icons for tabs in a dashboard application. When the app loads, the tab icons are rendering correctly. However, once the awesome markers are loaded the tab icons disappear. Note I'm using Font Awesome icons for the markers as well.
Here I include two snapshots of the behaviour, a reproducible example (you may need to adjust the number of points to create sufficient delay), and my session info:

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)