Shiny R не читает пользовательский файл CSS

Question

Я могу успешно использовать пользовательские темы Блэка, т.е.

# 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, т.е. текст "Ваша выбранная палитра" не затронут.

Структура каталогов здесь

Пожалуйста, помогите!

Answer 1

Я не уверен, почему он не работает с этой структурой каталогов, но вы можете попробовать это вместо:

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