Измените значок, цвет и цвет маркера на основе данных в буклете

Я хотел бы нанести некоторые данные на карту, где формы icon, iconColor и markerColor основаны на самих данных.

Образец кода

library(data.table)
library(leaflet)
library(webshot2)
library(htmlwidgets)
library(fontawesome)

len <- 20

dat <- data.table(
  lat = runif (len, min = -90, max = 90), 
  lon = runif (len, min = -180, max = 180), 
  activity = sample(x = c('person-hiking', 'house', 'map-marker', 'user-gear'), size = len, replace = T),
  marker_color = sample(x = c('blue', 'cadetblue', 'lightgray'), size = len, replace = T), 
  icon_color = sample(x = c('white', 'black'), size = len, replace = T)
)

icons_1 <- awesomeIcons(
  icon = dat$activity, 
  markerColor = dat$marker_color, 
  iconColor = dat$icon_color,
  library = 'fa'
)

icons_2 <- awesomeIcons(
  icon = 'map_marker',
  markerColor = dat$marker_color, 
  iconColor = 'black',
  library = 'fa'
)

icons_3 <- makeAwesomeIcon(text = fa('user-gear'))


plt <- leaflet(data = dat, options = leafletOptions(zoomControl = FALSE)) %>% addTiles() %>%
  addAwesomeMarkers(~lon, ~lat, icon = icons_1) %>%
  # addAwesomeMarkers(~lon, ~lat, icon = icons_2) %>%
  # addAwesomeMarkers(~lon, ~lat, icon = icons_3) %>%
  addScaleBar(position = 'bottomright', 
              options = scaleBarOptions(maxWidth = 200, metric = T, imperial = T)) %>% 
  addProviderTiles(provider = providers$CartoDB.DarkMatterNoLabels) 

Выход

icons_1 отображает правильный markerColor, но icon_color отображается правильно, только если установлено значение black и значок map+marker:

Я не был уверен, имеет ли это какое-то отношение к аргументу icon, поэтому попробовал icons_2 устранить неполадки, но это тоже не сработало:

Значки (указанные с помощью activity в data.table) работают нормально, я проверил один с помощью icons_3:

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