如何在R中向闪亮的表添加条件格式?

Code details mentioned below.

下面提到的代码细节。

**server.R**
shinyServer(function(input, output) {

  getTable <- reactive({
    // Some manipulations done every 2 mins and table is updated
    // Assume tbl_op has only one row with 3 columns
    // The table values represent time in hh:mm:ss
    tbl_op
  })

  output$tableUI <- renderTable({
    getTable()
  },include.rownames=FALSE)  
})

**ui.R**
shinyUI(
  fluidPage(    
    fluidRow(      
      column(width = 5, offset = 1,             
             tableOutput("tableUI")
      )
    )
  )
)
**