更改 shinydashboard shiny 中 markdown 中嵌入的代码的颜色

Question

我有一个闪亮的 (shinydashboard) 应用程序，其中包含嵌入式 markdown 和默认显示为红色的代码块。我怎样才能改变颜色？

这是一个演示应用程序：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    includeMarkdown("demo.md"),

  )
)

server <- function(input, output) { }

shinyApp(ui, server)

markdown 文件 demo.md 有这一行：

This is a `code` example.

“代码”一词以红色字体呈现。我想换个颜色。

我在应用程序中乱加了额外的行：

    tags$head(tags$style(HTML('
        .code {
          color: #000000;
        }
      ')))

和

tags$style(
  type = 'text/css', 
  '.code {color: black;}'
)

没有成功。

有人能告诉我可以在 markdown 或 R 文件中添加什么来更改嵌入代码的颜色吗？

Answer 1

根据 shinydashboard documentation，我们可以使用外部 CSS 文件或仅将它们包含在 UI 代码中。因此，您的第一次尝试非常接近，但您只需要使用正确的 CSS 选择器即可。

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
        includeMarkdown("demo.md"),
        tags$head(tags$style(HTML("
            code {
                color: blue;
            }
        ")))
    )
)

server <- function(input, output) { }

shinyApp(ui, server)

更改 shinydashboard shiny 中 markdown 中嵌入的代码的颜色

Change the color for code embedded in markdown in shinydashboard shiny

r

shiny

shinydashboard