小编Jid*_*der的帖子

我是一个Shiny App，我希望用户能够选择进入Awesome Marker的Font Awesome图标。

这是一个简单的应用程序，可让用户选择标记颜色，图标颜色和图标（名称）。

library(shiny)
library(leaflet)

icon_names <- c("home", "map-pin")

marker_colours <- list(Standard = c('red', 'orange', 'beige', 'green', 'blue', 'purple', 
                                    'pink', 'cadetblue', 'white', 'grey', 'black'),
                       Shades   = c('darkred', 'lightred', 'darkgreen', 'lightgreen', 
                                    'darkblue', 'lightblue', 'darkpurple', 'lightgray'))


server <- function(input, output) {

  output$map <- renderLeaflet({

    icons <- awesomeIcons(
      icon        = input$icon,
      iconColor   = input$icon_colour,
      library     = 'fa',
      markerColor = input$marker_colour
    )

    leaflet() %>% 
      addTiles() %>% 
      addAwesomeMarkers(lng            = 4.9, 
                        lat            = 52.38,
                        icon           = icons
      )
  })
}

ui <- fluidPage(
  sidebarLayout( …