R Shiny renderTable - วิธีเปลี่ยนความกว้างและสีของเส้นขอบ

ฉันอาจมีคำถามง่ายๆ แต่เนื่องจากฉันไม่คุ้นเคยกับ CSS/htlm มากนัก ฉันจึงมีเวลายากที่จะทราบปัญหาต่อไปนี้ ใน UI ของฉันฉันมีตารางง่าย ๆ ดังต่อไปนี้:

tableOutput("retail_dashboard_ratios_table")

ในเซิร์ฟเวอร์ ฉันมีโค้ดง่ายๆ นี้:

output$retail_dashboard_ratios_table <- renderTable({  #
df <- head(mtcars)
})

สิ่งที่ฉันต้องทำคือตั้งค่าความกว้างของเส้นขอบและสีของเส้นขอบ (เป็นสีน้ำเงิน) ฉันจำเป็นต้องใช้เวอร์ชัน R 3.4 เนื่องจากฉันมี tableOutput แบบคงที่ ฉันจึงไม่สามารถใช้วิธีแก้ปัญหาที่กล่าวถึงใน เพิ่มขอบเขตเซลล์ใน R Datatable เนื่องจากฉันไม่สามารถส่งคืนออบเจ็กต์ DataTable ได้

ฉันยังได้อ่าน R Shiny renderTable เปลี่ยนสีของเซลล์ ซึ่งมีวิธีแก้ปัญหาที่น่าสนใจมาก แต่ด้วยเวอร์ชัน R ของฉัน ดูเหมือนว่าไลบรารี (tableHTML) เข้ากันไม่ได้

ฉันสงสัยว่ามีใครมีวิธีแก้ไขง่ายๆ เพียงแก้ไขขอบเขตหรือไม่ ขอบคุณ

ขอบคุณ @Patrick Altmeyer นี่เป็นวิธีแก้ปัญหาการทำงานขั้นสุดท้าย!

source("global.R") 

today <- as.character()

ui <- dashboardPage(  
  title = "Dashboard of the Municipal Market",  # this is the name of the tab in Chrome browserr
  dashboardHeader(title = "Web Portal"),

  dashboardSidebar(   
    sidebarMenu(

      menuItem('Retail', tabName = "retail", icon = icon("th"),
               menuItem('Dashboard', tabName = 'retail_dashboard'))
    )
  ),

  dashboardBody( 
      tabItem(tabName = "retail_dashboard",
              tabsetPanel(type = "tabs",
                          tabPanel("Dashboard",
                                   h3("Test."),

                                   tags$head(
                     tags$style(HTML("
                                                .my_table_aa01 .table>tbody>tr>td, .table>tbody>tr>th, .table>tfoot>tr>td, .table>tfoot>tr>th, .table>thead>tr>td, .table>thead>tr>th {
                                                border-collapse: collapse;
                                                }

                                                .my_table_aa01 th {
                                                 border: 1px solid black !important;
                                                 text-align: center !important;
                                                 vertical-align: middle !important;
                                                 color: white !important;
                                                 background-color: #615858 !important;
                                                 white-space: nowrap;
                                                 border-bottom: none}

                                                .my_table_aa01 td {padding: 1rem;
                                                border: 1px solid black;}

                                                .my_table_aa01 tr:first-child {
                                                  border : 1px solid black;
                                                 border-top: 1px solid black;}

                                                 .my_table_aa01 tr:nth-child(even){
                                                 background-color: #afd19d;
                                                 color: black;
                                                 font-size:16px;}

                                                 .my_table_aa01 tr:nth-child(odd){
                                                 background-color: white;
                                                 color: black;
                                                 font-size:16px;
                                                 }
                                                "))),

                                   fluidRow(column(2,
                                                   actionButton(inputId = "retail_dashboard_load_data_btn", label = "Load / Refresh Data")),
                                            column(2,
                                                   downloadButton("download_dashboard_data","Download Data"))),

                                   fluidRow(
                                     column(2, 
                                            dateInput("retail_dashboard_start_dt", label = ("Start Date"), value = glob_date_1yr_ago)),
                                     column(2, 
                                            dateInput("retail_dashboard_end_dt", label = ("End Date"), value = glob_previous_to_most_recent_date_with_quant_model_regression_data))
                                   ),


                                   br(),
                                   fluidRow(column(6,
                                                   div(textOutput(outputId = "retail_dashboard_error_log")))),
                                   br(),

                                   fluidRow(column(3,
                                                   plotlyOutput(outputId = "retail_dashboard_plot1", width = '350', height = '350px')),
                                            column(3,
                                                   offset = 0,
                                                   tags$div(
                                                     class="my_table_aa01", # set to custom class
                                                     tableOutput("retail_dashboard_ratios_table") )


                                            )),
                                   fluidRow(column(3,
                                                   tableOutput("retail_dashboard_table2")))
                                     )
                                     )             
              )
              )
)


server <- function(input, output, session) {    
  source("Page_retail_dash.R", local=T) 


}

cat("\nLaunching   'shinyApp' ....")
shinyApp(ui, server)