Shinydashboard 和闪亮主题？答案

【问题标题】：Shinydashboard and shinytheme?Shinydashboard 和闪亮主题？
【发布时间】：2017-06-06 01:17:08
【问题描述】：

我已经使用 shinydashboard 制作了一个仪表板，并且非常喜欢使用该包进行布局的简便性！但是，我想使用来自 shinythemes 包的主题之一。我对闪亮的仪表板皮肤很熟悉，但它们不像闪亮的主题那样酷炫或现代。闪亮的主题似乎只适用于闪亮，但不适用于闪亮仪表板。

有人知道如何让闪亮主题与闪亮仪表板一起工作吗？

非常感谢！

ie：仪表板的开始：不起作用：

 ui <- dashboardPage( theme = shinytheme("spacelab"),
 dashboardHeader(title = "I want this to look awesome!"),
 dashboardSidebar(sidebarMenu(

【问题讨论】：

标签： r shiny shinydashboard shinythemes

【解决方案1】：

有一个包 (dashboardthemes) 允许修改 shinydashboard 主题。使用起来非常简单。

其中一个可用的皮肤：

或者，如果您想尝试一些新皮肤，请选择 semantic.dashboard，它提供 Bootswatch 和 Semantic-UI 主题。

【讨论】：

【解决方案2】：

如果只是您要更改的配色方案，请参考这篇文章：

How to change color in shiny dashboard?

您还可以更改标题部分中的字体，并将其链接回谷歌字体：

 tags$head(tags$style(HTML("@import url('https://fonts.googleapis.com/css?family=News+Cycle');


                        h1 {
                            font-family:'News Cycle',sans-serif;
                            font-size: 48px;
                            font-weight: 1000;
                            line-height: 1.1;
                            color: 'slategrey';
                        }")))

【讨论】：

【解决方案3】：

很遗憾，shinydashboard 无法按照您在上面尝试的方式切换到其他基于 Bootstrap 的主题。

如果您需要在应用中应用自定义 .css，我会执行以下操作：

  dashboardBody(
    useShinyjs(),
    tags$head(
      tags$link(rel = "stylesheet", type = "text/css", href = "css/custom.css"),
      tags$link(rel = 'stylesheet', href = '//maxcdn.bootstrapcdn.com/font-awesome/4.5.0/css/font-awesome.min.css')
    ),
    # Source add'l UI elements:
    tabItems(
      source('ui/charts.R', local = TRUE)[['value']],  # source: https://groups.google.com/forum/#!topic/shiny-discuss/kRBT8EmNsJg
      source('ui/help.R', local = TRUE)[['value']]
    )
  )

custom.css（或类似名称）是您定义覆盖的 UI 元素的位置。

【讨论】：