Добавление иконки для выбора входа в Shiny

Question

Здравствуйте, я работаю над Shiny Dashboard. Следующая статья помогла мне добавить значок к fileInput в блестящем.

Добавление / удаление иконки в downloadButton () и fileInput ()

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

Я попытался использовать приведенный ниже код, однако он не служит цели

sidebarItem(selectInput("vars", "Select a variable:",choices=c("Users", 
"New_Users"), multiple=F), icon = icon("paw"), tabName = "")

Я действительно надеюсь, что есть решение для этого.

Заранее большое спасибо !!

Answer 1

Используйте тот же подход, установите метку a как список с иконкой и строкой.

sidebarItem(selectInput("vars", list(icon("paw"),"Select a variable:"),choices=c("Users", 
    "New_Users"), multiple=F))