R shinyDashboard tùy chỉnh trạng thái hộp màu

Question

Tôi muốn tùy chỉnh màu sắc của trạng thái hộp của ứng dụng sáng bóng của tôi. Tôi tìm một cách css để thay đổi màu nền của hộp này nhưng không tùy chỉnh màu trạng thái, nhưng tôi không thấy đối số tương đương của "trạng thái" trong css? Vì vậy, tôi in mã nguồn của một trang đơn giản có chứa đối số được xem là "trạng thái" và tôi đã xem xét lớp của nó (tôi nghĩ class = "box box-solid box-primary") nhưng tôi không quản lý nó nhiều .css cung cấp trong trang web này ... :(

bạn có một ý tưởng

đây là mã đơn giản này:?!

library(shiny) 
library(shinydashboard) 

ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
    fluidRow(
     box(width = 6, title = "youhou", status = "primary", solidHeader = TRUE, 
      "Box content" 
    ) 
    ) 
    ) 
    ) 


server <- function(input, output) {} 

shinyApp(ui, server) 

Cảm ơn bạn trước sự giúp đỡ nào

Cha

Answer 1

Cuối cùng tôi đã tìm thấy câu trả lời (dài và khó nhưng luôn thỏa mãn: D)

Một người bạn của tôi (Cảm ơn bạn của tôi !!!) cho tôi biết cách hiển thị tất cả thông số css của từng phần tử trang web (và đặc biệt là một trang sáng bóng: đi đến trang thích hợp và nhấp chuột phải, giống như "kiểm tra phần tử" !!

Rất tuyệt vời !!

Sau đó, tôi nhìn sâu hơn (rất rất rất sâu, có quá nhiều lớp !!) và tôi đã quản lý để truy cập vào bất kỳ tham số css nào của các hộp!

Đây là mã cho những người tiếp theo:

library(shiny) 
library(shinydashboard) 

ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
    tags$style(HTML(" 


.box.box-solid.box-primary>.box-header { 
    color:#fff; 
    background:#666666 
        } 

.box.box-solid.box-primary{ 
border-bottom-color:#666666; 
border-left-color:#666666; 
border-right-color:#666666; 
border-top-color:#666666; 
} 

            ")), 
    fluidRow(
     box(width = 6, title = "youhou", status = "primary", solidHeader = TRUE, 
      "Box content" 
    ) 
    ) 
) 
) 


server <- function(input, output) {} 

shinyApp(ui, server) 

Có một tốt cuối tuần !!

Chúc mừng!