更改表闪亮（R）中的列样式

Question

我正在使用闪亮来在应用程序中显示包含一些结果的表格。我想用其他颜色或粗体显示两列内容。我的代码是下一个：

用户界面：

ui <- fluidPage(
  tags$head(tags$style(
    HTML('
         body { 
         background: -webkit-linear-gradient(left, #25c481, #25b7c4);
         background: linear-gradient(to right, #25c481, #25b7c4);

         }
     h1{
     background-color: white;  
     }
     table{

     }
     ')
)),
  # This one is linked by the id 'download'
  downloadButton('download',"Descargar Predicciones"),
  fluidRow(column(7,dataTableOutput('dto')))
)

服务器：

server <- function(input,output){
  # Reactive expression with the data, in this case iris

  output$dto <- renderDataTable({predictions})
  output$download <- downloadHandler(
    filename = function(){"Predicciones_Consumo.csv"}, 
    content = function(fname){
      write.csv(predictions, fname)
    }
  )

}

我想改变第6和第7列的外观

干杯