在Shiny

Question

您好，我正在研究Shiny Dashboard。以下文章帮助我向fileInput中添加了闪亮的图标。

Adding/removing icon in downloadButton() and 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))