web-dev-qa-db-ja.com

RshinyDashboardはボックスのステータスカラーをカスタマイズします

光沢のあるアプリのボックスステータスの色をカスタマイズしたいと思います。これらのボックスのボックスの背景色を変更するcssの方法を見つけましたが、ステータスの色をカスタマイズしませんが、cssに「status」の同等の引数が表示されませんか?したがって、考慮された引数「status」を含む単純なページのソースコードを印刷し、そのクラスを調べました(class = "box box-solid box-primary"だと思います)が、いくつかの方法で到達できませんこのウェブページで提供されている.css ... :(

アイデアはありますか?

これがこの単純なコードです:

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)

助けてくれてありがとう!

チャ

12
Charlotte Sirot

私はついに答えを見つけました(長くてタフですが、常に満足しています:D)

私の友人の1人(私の友人に感謝します!!!)は、Webページ(特に光沢のあるページ)の各要素のすべてのcssパラメーターを表示する方法を教えてくれます。適切なページに移動して右クリックします。要素を調べてください」!!

本当に素晴らしい !!

次に、私はより深く見て(非常に非常に深く、非常に多くのクラスがあります!!)、ボックスの任意のcssパラメーターにアクセスすることができました!

これが次の人々のためのコードです:

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)

良い週末を !!

乾杯!

28
Charlotte Sirot