Изменение размера шрифта / цвета / в flexdashboard (датчик) - PullRequest
0 голосов
/ 25 февраля 2019

У меня есть следующий фрагмент кода:

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)

В настоящее время графический интерфейс выглядит следующим образом: enter image description here

, как вы можете видеть на изображении,ярлыки не отображаются должным образом на сером фоне.Я хочу изменить размер шрифта / цвет / выделить его жирным шрифтом для следующих текстов: «Всего выполненных», «Всего выполнено», «Всего выполнено» на дисплее «Датчик» и минимальных / максимальных чисел на датчике.Я не могу понять это с помощью стилей CSS.Может кто-нибудь, пожалуйста, помогите мне?Заранее спасибо!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...