Как изменить цвет и толщину границ бокса в шинидашборде? - PullRequest
Новая
       7

Как изменить цвет и толщину границ бокса в шинидашборде?

0 голосов
/ 23 января 2019

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

Ниже приведен аналогичный код, с которым мы пытались решить эту проблему, но безуспешно.

library(shiny)
library(shinydashboard)
library(htmltools)


 ui <- dashboardPage(skin = "black", title = "Dashboard",
                dashboardHeader(title = "Dashboard"),
                dashboardSidebar(width = 300),

                dashboardBody(

                  tags$head(tags$style(HTML("
                                       // change color (red) and border of boxes
                                       // center text
                                            div.box {
                                            text-align: center;
                                            border-style: solid;
                                            border-bottom-color:#d32017;
                                            border-left-color:#d32017;
                                            border-right-color:#d32017;
                                            border-top-color:#d32017;
                                            border-bottom-width:20px;
                                            border-top-width:20px;   
                                            border-left-width:20px;
                                            border-right-width:20px;
                                            }
                  "))),


                  box(textOutput("text1"), 
                      box(textOutput("text2"), height = "200px"),
                      height = "300px"),
                  box(textOutput("text3"),
                      box(textOutput("text4"), height = "200px"),
                      height = "300px")
                )
                )
   # Define server logic required to draw a histogram
  server <- function(input, output) {

  output$text1 <- renderText({
  print("Hello!")
  })

  output$text2 <- renderText({
  print("Goodbye!")
  })

  output$text3 <- renderText({
  print("Hello!")
  })

  output$text4 <- renderText({
  print("Goodbye!")
  })

   }

  # Run the application 
  shinyApp(ui = ui, server = server)

Это то, что вы видите в приложении с кодом сверху

Есть ли способ сделать это с помощью shinydashboard?Если нет, то как правильно поступить с HTML / CSS?

Спасибо!

...