是否可以在Rshiny中使用字体真棒图标制作圆圈标记?

时间:2017-04-18 20:58:12

标签: r leaflet shiny

Great R Gurus,

在以下示例中,是否有任何方法可以使用字体真棒图标制作圆形标记:

df.20 <- quakes[1:20,]

getColor <- function(quakes) {
  sapply(quakes$mag, function(mag) {
    if(mag <= 4) {
      "green"
    } else if(mag <= 5) {
      "orange"
    } else {
      "red"
    } })
}

icons <- awesomeIcons(
  icon = 'ios-close',
  iconColor = 'black',
  library = 'ion',
  markerColor = getColor(df.20)
)

leaflet(df.20) %>% addTiles() %>%
  addCircleMarkers(~long, ~lat, icon=icons, label=~as.character(mag))

我希望获得类似this的内容,但使用圆圈标记。 您的回答时间表示高度赞赏......

0 个答案:

没有答案