为何Shiny R不读取自定义CSS文件?

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (1)
  • 关注 (0)
  • 查看 (100)

我能够成功使用shiny的自定义主题,即

# 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目录结构是这里(https://github.com/ArtieLadie/RanglaPunjab/tree/master/R)

救命啊!

提问于
用户回答回答于

我不知道为什么这个目录结构不能工作,但是您可以尝试这样做:

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

扫码关注云+社区

领取腾讯云代金券