如何更改闪亮仪表板标题的颜色和字体?
How to change colour and font of shiny dashboard title?
如何将此仪表板标题 header 更改为以下内容:
我想说 Basic DASHBOARD 其中 DASHBOARD 是粗体,红色字体,Basic 是默认的白色字体 - 我还想调整字体的大小DASHBOARD 要大一些?关于如何在闪亮的仪表板标题中执行此操作的任何想法?
所以 DASHBOARD 和更大的基本上需要红色和粗体,BASIC 保持不变,
下面的代码
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(),
dashboardBody(
# Boxes need to be put in a row (or column)
fluidRow(
box(plotOutput("plot1", height = 250)),
box(
title = "Controls",
sliderInput("slider", "Number of observations:", 1, 100, 50)
)
)
)
)
server <- function(input, output) {
set.seed(122)
histdata <- rnorm(500)
output$plot1 <- renderPlot({
data <- histdata[seq_len(input$slider)]
hist(data)
})
}
shinyApp(ui, server)
您可以使用内联 css
来实现:
dashboardHeader(title = span("Basic ",
span("dashboard",
style = "color: red; font-size: 28px")))
如何将此仪表板标题 header 更改为以下内容:
我想说 Basic DASHBOARD 其中 DASHBOARD 是粗体,红色字体,Basic 是默认的白色字体 - 我还想调整字体的大小DASHBOARD 要大一些?关于如何在闪亮的仪表板标题中执行此操作的任何想法?
所以 DASHBOARD 和更大的基本上需要红色和粗体,BASIC 保持不变,
下面的代码
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(),
dashboardBody(
# Boxes need to be put in a row (or column)
fluidRow(
box(plotOutput("plot1", height = 250)),
box(
title = "Controls",
sliderInput("slider", "Number of observations:", 1, 100, 50)
)
)
)
)
server <- function(input, output) {
set.seed(122)
histdata <- rnorm(500)
output$plot1 <- renderPlot({
data <- histdata[seq_len(input$slider)]
hist(data)
})
}
shinyApp(ui, server)
您可以使用内联 css
来实现:
dashboardHeader(title = span("Basic ",
span("dashboard",
style = "color: red; font-size: 28px")))