Creating a dropdown menu using icon in R and updating plot

Question

the given plot creates the snap as below. However, after clicking on the Circle icon, I just see the first element in the dropdown, I want all the dropdown elements to appear i.e "A", "B", "C", "D", "E", "F". The warning I get is mentioned below the script:

## app.R ##
library(shiny)
library(shinydashboard)
library(shinyWidgets)

ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
),
dashboardBody(

dropdownButton(
  pickerInput(inputId = "uppickerIcons", 
              label = "", 
              choices = c("A", 
                          "B", 
                          "C", 
                          "D", 
                          "E", 
                          "F"), 
              choicesOpt = list(icon = c("glyphicon glyphicon-arrow-right", 
                                         "glyphicon glyphicon-cog", 
                                         "glyphicon glyphicon-play", 
                                         "glyphicon glyphicon-ok-sign", 
                                         "glyphicon glyphicon-euro", 
                                         "glyphicon glyphicon-music")), 
              options = list(`icon-base` = "")),
  circle = TRUE, status = "danger", icon = icon("gear"), width = "300px",
  tooltip = tooltipOptions(title = "Click to see inputs !")
 )
 )
 )
 server <- function(input, output) 
 {
 }
 shinyApp(ui, server)

Warning Message:

Warning in if (!is.na(attribValue)) { :
the condition has length > 1 and only the first element will be used
Warning in charToRaw(enc2utf8(text)) :
argument should be a character vector of length 1
all but the first element will be ignored