在R闪亮中添加一个CSS样式表

est*_*ban 12 html css r shiny

我正在制作我的第一个闪亮的应用程序,并且无法链接外部.css文件.我已经看过一些教程和参考文献,人们已经解释了如何做,甚至展示了示例代码,但我没有运气.我见过它的大部分例子都使用了有光泽的UI或fluidPage函数,就像这样使用主题:

shinyUI(fluidPage(theme = "bootstrap.css",
       headerPanel("New Application"),
       sidebarPanel(
              sliderInput("obs", "Number of observations:", 
              min = 1, max = 1000, value = 500)
                   ),
       mainPanel(plotOutput("distPlot"))
                )
       )
Run Code Online (Sandbox Code Playgroud)

或者这个使用tags$link:

shinyUI(fluidPage(
       tags$head(
                tags$link(rel = "stylesheet", type = "text/css", href = "bootstrap.css")
                ),
       headerPanel("New Application")
                 )
       )
Run Code Online (Sandbox Code Playgroud)

或使用 includeCSS

fluidPage没有使用有光泽的UI而单独使用,但没有一个选项有效.我已经确认我的工作目录和app-Directory是我认为应该的位置,并且包含保存.css文件的"www"子目录.唯一有效的是我tags$style在我的内部添加一个和一个HTMLtags$head:

fluidPage(
         tags$head(
             tags$style(
                       HTML(
                           "h1 {color:purple;}
                           .blue-item {color:blue;}
                           #dark {color:navy;}"
                            )
                       )
                   )
         )
Run Code Online (Sandbox Code Playgroud)

但它没有解决问题,因为我没有将CSS样式表与此命令链接,因此我不会更改我的应用程序的外观.

小智 1

To get CSS into your Shiny App, you 

Add style sheets with the www directory
Add CSS to your HTML header
Add styling directly to HTML tags
Run Code Online (Sandbox Code Playgroud)

链接到样式表文件

<!DOCTYPE html>
<html>
  <head>
    <link type="text/css" rel="stylesheet" href="bootstrap.css"/>
  </head>
  <body>
  </body>
</html>
Run Code Online (Sandbox Code Playgroud)