title: Changing icon color using awesomeIcons
body: <p>I am using awesomeIcons() where I found a hospital icon ('hospital-o'). However, the icon turns out to be black. Using the code below, I am unable to change its color to white.</p>
  
  <pre><code>library(dplyr)
  library(DT)
  library(flexdashboard)
  library(leaflet)
  library(leaflet.extras)
  library(reshape2)
  library(shiny)
  
  icons &lt;- awesomeIcons(
            icon = 'hospital-o',
            lib = 'fa',
            markerColor = getColor(DATASET))
  </code></pre>
  
  <p>Where getColor() is the following function:</p>
  
  <pre><code>  getColor &lt;-
    function(DATASET) {
      sapply(DATASET$VAR, function(VAR) {
      if(VAR == 0 | is.na(VAR) | is.nan(VAR)) {"gray"}
      else if(VAR &lt;= 2){"darkgreen"}
      else if(VAR &lt;= 4){"green"}
      else if(VAR &lt;= 6){"orange"}
      else if(VAR &lt;= 10){"red"}
      else {"darkred"}
      })
    }
  </code></pre>
  
  <p>The color function is working (i.e., gray, green, red, markers). I have tried something like this (and also implementing color codes), without result:</p>
  
  <pre><code>icons &lt;- awesomeIcons(
            icon = 'hospital-o',
            lib = 'fa',
            iconColor = "white",
            markerColor = getColor(DATASET))
  </code></pre>
  
  <p>Dummy data</p>
  
  <pre><code>NAME    VAR latitude    longitude
  A   1   51.792  4.682
  B   12  52.214  6.894
  C   6   51.982  5.148
  </code></pre>
  
  <p>Making map:</p>
  
  <pre><code>map &lt;- leaflet(DATASET) %&gt;%          
  addTiles() %&gt;% 
  addAwesomeMarkers(lng = ~longitude, lat = ~latitude, icon = icons, label = ~as.character(DATASET$NAME),
                  popup = paste0("&lt;strong&gt;Name: &lt;/strong&gt;", DATASET$NAME, "&lt;br&gt;","&lt;strong&gt;VAR: &lt;/strong&gt;", DATASET$VAR)) %&gt;% 
       addMarkers(lng = longitude, lat = latitude) %&gt;%
  addProviderTiles(providers$nlmaps.pastel, group = "Pastel") %&gt;%
  addMiniMap(toggleDisplay = T, minimized = T, position = "bottomright") %&gt;%
  addLayersControl(
    baseGroups = c("Pastel"), 
    options = layersControlOptions(collapsed = F), position = "topleft") %&gt;%
         addMarkers(lng = longitude, lat = latitude)
  </code></pre>
  
  <p>Can somebody help me? Thank you in advance!</p>