Shiny R 不读取自定义 CSS 文件答案

【问题标题】：Shiny R not reading custom CSS fileShiny R 不读取自定义 CSS 文件
【发布时间】：2018-06-12 18:46:26
【问题描述】：

我能够成功使用闪亮的自定义主题，即

# Internal, hidden function
# Called by CherryPickPalette()
CustomPal <- function(new_pal){
  if (interactive()){
    cherrypickedpalette <- runApp(list(
      ui = fluidPage(
        theme = shinythemes::shinytheme("slate"),

将为应用提供以下外观

但是，如果我用自定义 .css 替换，程序会忽略它，即

自定义 CSS，h5.css

h5 {
color: orange;
text-align: center;
}

使用 h5.css

的代码

# Internal, hidden function
# Called by CherryPickPalette()
CustomPal <- function(new_pal){
  if (interactive()){
    cherrypickedpalette <- runApp(list(
      ui = fluidPage(
        theme = "h5.css",
        titlePanel("Cherry Pick Your Own Palette!"),
        sidebarPanel (hr(),
                      selectInput('col', 'Options', new_pal, multiple=TRUE, selectize=FALSE, size = 15)
        ),
        mainPanel(
          h5('Your Cherry-Picked Palette'),
          fluidRow(column(12,verbatimTextOutput("col"))),

h5 文本，即“Your Cherry-Picked Palette”不受影响。

R目录结构为here

请帮忙！

【问题讨论】：

标签： css r shiny themes

【解决方案1】：

我不确定为什么它不适用于此目录结构，但您可以尝试一下：

ui = fluidPage(
       # theme = "h5.css",
       tags$head(includeCSS("R/www/h5.css")),
       titlePanel("Cherry Pick Your Own Palette!"),
       ...
)

【讨论】：

也许您可以尝试使用绝对路径。你从哪里运行它？我克隆了您的存储库，并且能够使用 includeCSS 使用 CSS 运行它。
不幸的是它不起作用。只有当我硬编码时，它才能工作，但最好的做法是使用单独的 css 表。会修改代码。顺便说一句，当我将 txt 文件保存为 css 时，它被编码为 UFT-8，如果相关的话。
我在另一台计算机上卸载了整个 R，重新安装，然后克隆了我的存储库。不幸的是，仍然无法正常工作。
看来 .css 必须是 ANSI 编码。并且tags$head(includeCSS("R/www/h5.css")), 将起作用而不是tags$head(includeCSS("h5.css"))