R闪亮的仪表板如何使用动画图标？答案

【问题标题】：R shiny dashboard how to use animated icons?R闪亮的仪表板如何使用动画图标？
【发布时间】：2017-11-08 02:32:57
【问题描述】：

我是 R 新手，我发现可以在该网页的仪表板中为一些图标设置动画：

http://fontawesome.io/examples/#animated

但我不明白我必须在哪里编写指定的 CSS 代码。

拜托，你能告诉我吗？

非常感谢。

【问题讨论】：

请附上您到目前为止所尝试的内容
对不起，我没有尝试任何东西，因为我不知道将“动画图标”段落中描述的 CSS 代码放在哪里。

标签： r shiny shinydashboard

【解决方案1】：

您可以简单地将renderUI 与htmltools::HTML 和uiOutput 一起使用，将您的HTML 代码直接嵌入到您的shiny 应用程序中：

require("shinydashboard")
shinyApp(
  ui = dashboardPage(
    dashboardHeader(title = "Dashboard Demo"),
    dashboardSidebar(),
    dashboardBody(uiOutput("icon"))
  ),
  server = function(input, output) {
    output$icon <- renderUI(
      htmltools::HTML('<i class="fa fa-spinner fa-spin fa-3x fa-fw"></i><span class="sr-only">Loading...</span>')
    )
  }
)

【讨论】：

非常感谢您的回复，但是我没有成功在侧边栏中获得动画图标，您知道当您输入带有图标的menuSubItem名称时。我试过你写的：在 Ui 中：'menuSubItem("Countries", icon = uiOutput("icon"), tabName = "countries"，以及你在服务器中写的内容，但图标消失了。谢谢。
您的 OP 提到在闪亮的仪表板中显示动画图标。如果这篇文章回答了你的问题，请接受它。然后你可以问一个关于在侧边栏中设置图标的新问题（最终参考这个问题），包括你试图实现它的代码（因为你现在知道如何使用 CSS）。
我的帖子的标题是指仪表板包。很抱歉造成混乱，非常感谢。
dashboardSidebar(menuSubItem("Countries", icon = uiOutput("icon"), tabName = "countries")) 在我的设置上运行良好
你说得对 HubertL，我已经关闭并重新启动了我的 R-Studio，它现在可以工作了（？？？），只是图标比以前大得多，所以我必须找到如何减少它。

【解决方案2】：

您可以通过添加fa-spin 类来简单地使用icon 函数。它应该适用于所有图标，但微调器图标具有最佳视觉效果。

icon("refresh", class = "fa-spin")
# <i class="fa fa-refresh fa-spin"></i>
icon("spinner", class = "fa-spin")
# <i class="fa fa-spinner fa-spin"></i>

【讨论】：