图标未出现在shinydashboardPlus::boxDropdown()

Question

我试图在这个闪亮的应用程序中实现下面的图标。

​

​

但是图标已经出现了。我试着用下面的代码。

library(shiny)
library(shinydashboard)

shinyApp(fluidPage(    
  
  # Give the page a title
  titlePanel("Telephones by region"),
  
  # Generate a row with a sidebar
  sidebarLayout(      
    
    # Define the sidebar with one input
    sidebarPanel(
      selectInput("region", "Region:", 
                  choices=colnames(WorldPhones)),
      hr(),
      helpText("Data from AT&T (1961) The World's Telephones.")
    ),
    
    # Create a spot for the barplot
    mainPanel(
      shinydashboardPlus::box(
        # Analysis UI Module function and arguments from JSON file
        plotOutput("phonePlot"),
        title = "Hi!",
        width = 12,
        closable = TRUE,
        collapsible = TRUE,
        dropdownMenu = shinydashboardPlus::boxDropdown(
          shinydashboardPlus::boxDropdownItem("Hi!"),
          shinydashboardPlus::boxDropdownItem("Hello!"),
          icon = icon("circle-ellipsis")
        )
      ) 
    )
    
  )
),

# Define a server for the Shiny app
function(input, output) {
  
  # Fill in the spot we created for a plot
  output$phonePlot <- renderPlot({
    
    # Render a barplot
    barplot(WorldPhones[,input$region]*1000, 
            main=input$region,
            ylab="Number of Telephones",
            xlab="Year")
  })
})

我试着用‘圆形省略’图标，它也不是与唯一的‘省略’图标工作。任何建议都是非常感谢的。

Answer 1

您可以使用icon("ellipsis-h")代替。shiny::icon支持FontAwesome版本4和5中的图标。您可以在这里搜索这些图标：

https://fontawesome.com/v4/icons/

• v5：https://fontawesome.com/v5/search?q=ellipsis

：

• v4