У меня есть следующий фрагмент кода:
library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyjs)
library(shinycssloaders)
library(plotly)
library(treemap)
library(viridisLite)
library(highcharter)
library(V8)
library(dplyr)
library(RColorBrewer)
library(openxlsx)
library(quantmod)
library(shinyWidgets)
library(caret)
library(lubridate)
library(tidyr)
library(flexdashboard)
xheader<-dashboardHeaderPlus( title = "ABC")
xsidebar<- dashboardSidebar(
sidebarUserPanel("USER",
subtitle = "Test",
image = "XXX"
),
sidebarMenu(id = "left_sidebar",
menuItem("DashBoard",
tabName = "ID_DashBoard",
icon = icon("desktop"))
)
)
x1body<-dashboardBody(
tabItems(
tabItem(tabName = "ID_DashBoard",
fluidRow(
column(width = 4,
fluidRow(style = "height:1000px; background-color: #E8E9EC;font-weight:bold",
column(width = 4, style = "color:green;font-weight:bold;",
gaugeOutput("gauge1", width = "100px", height = "200px")
),
column(width = 4,
gaugeOutput("gauge2", width = "100px", height = "200px")
),
column(width = 4,
gaugeOutput("gauge3", width = "100px", height = "200px")
)
)
),
column(width = 4,
fluidRow("MIDDLE", style = "height:1000px; background-color: #F2F3F5;")
),
column(width = 4,
fluidRow("RIGHT", style = "height:1000px; background-color: #E8E9EC;")
)
)
)
)
)
ui<- dashboardPagePlus(
shinyjs::useShinyjs(),
header = xheader,
sidebar = xsidebar,
body = x1body,
skin = "black",
sidebar_background = "light",
collapse_sidebar = TRUE
)
server <- function(input,output,session){
output$gauge1 = renderGauge({
gauge(0.5,
min = 0,
max = 1,
sectors = gaugeSectors(success = c(0.5, 1),
warning = c(0.3, 0.5),
danger = c(0, 0.3)),
label = "Total Commits"
)
})
output$gauge2 = renderGauge({
gauge(0.1,
min = 0,
max = 1,
sectors = gaugeSectors(success = c(0.5, 1),
warning = c(0.3, 0.5),
danger = c(0, 0.3)),
label = "Total Executed"
)
})
output$gauge3 = renderGauge({
gauge(0.1,
min = 0,
max = 1,
sectors = gaugeSectors(success = c(0.5, 1),
warning = c(0.3, 0.5),
danger = c(0, 0.3)),
label = "Total Executed"
)
})
}
shinyApp(ui, server)
В настоящее время графический интерфейс выглядит следующим образом:
, как вы можете видеть на изображении,ярлыки не отображаются должным образом на сером фоне.Я хочу изменить размер шрифта / цвет / выделить его жирным шрифтом для следующих текстов: «Всего выполненных», «Всего выполнено», «Всего выполнено» на дисплее «Датчик» и минимальных / максимальных чисел на датчике.Я не могу понять это с помощью стилей CSS.Может кто-нибудь, пожалуйста, помогите мне?Заранее спасибо!