R 更改输出中的字体颜色

使用tableOutput更改单行数据框字体颜色的最简单方法是什么。具体来说，如何将“右”下的“7”改为绿色

library(shiny)

shinyApp(
  ui = fluidPage(

    sidebarLayout(
      sidebarPanel(
      fluidRow(  
         tableOutput("view")
        )
      ),

      mainPanel(
      ))),

  server = function(input, output, session){

    correct <- reactiveValues(num = 7)
    wrong <- reactiveValues(num = 4)   
    skipped <- reactiveValues(num = 9)

    togo = 80

    output$view <- renderTable(tibble(
      Right = correct$num,
      Wrong = wrong$num,
      Skipped = skipped$num,
      ToGo = togo
    ), spacing = "xs")
  }
)

库（闪亮）
shinyApp(
ui=fluidPage(
侧边栏布局(
侧栏面板(
fluidRow（
表格输出（“视图”）
)
),
主面板(
))),
服务器=功能（输入、输出、会话）{
更正在本例中，最好使用
DT
，这是
renderDataTable
附带的，以获得更好的格式设置

library(shiny)
library(tidyverse)
library(DT)

shinyApp(
  ui = fluidPage(

    sidebarLayout(
      sidebarPanel(
        fluidRow(  
          column(8,dataTableOutput("view"))
        )
      ),

      mainPanel(
      ))),

  server = function(input, output, session){

    correct <- reactiveValues(num = 7)
    wrong <- reactiveValues(num = 4)   
    skipped <- reactiveValues(num = 9)

    togo = 80

    output$view <- renderDataTable(datatable(tibble(
      Right = correct$num,
      Wrong = wrong$num,
      Skipped = skipped$num,
      ToGo = togo
    )) %>% formatStyle("Right",color=styleEqual(7, "red")) ) 
  }
)

库（闪亮）
图书馆（tidyverse）
图书馆（DT）
shinyApp(
ui=fluidPage(
侧边栏布局(
侧栏面板(
fluidRow（
列（8，dataTableOutput（“视图”））
)
),
主面板(
))),
服务器=功能（输入、输出、会话）{
更正该选项带来了许多我想隐藏的功能。是否可以隐藏：显示条目、搜索框、列名旁边的小上下箭头、行名称、“显示1到1个条目”和“上一个/下一个”？太好了。谢谢。不过仍然有那些多余的三角形。
library(shiny)
library(tidyverse)
library(DT)

shinyApp(
  ui = fluidPage(

    sidebarLayout(
      sidebarPanel(
        fluidRow(  
          column(8,dataTableOutput("view"))
        )
      ),

      mainPanel(
      ))),

  server = function(input, output, session){

    correct <- reactiveValues(num = 7)
    wrong <- reactiveValues(num = 4)   
    skipped <- reactiveValues(num = 9)

    togo = 80

    output$view <- renderDataTable(datatable(tibble(
      Right = correct$num,
      Wrong = wrong$num,
      Skipped = skipped$num,
      ToGo = togo
    ), options = list(dom = 't')) %>% formatStyle("Right",color=styleEqual(7, "red")) ) 
  }
)