在R Shiny中，可以使用DT::dataframe以交互方式突出显示单元格吗？

library(shiny)
library(DT)

ui <- fluidPage(
  titlePanel("DT::datatable示例"),
  sidebarLayout(
    sidebarPanel(),
    mainPanel(
      DT::dataTableOutput("table")
    )
  )
)

server <- function(input, output) {
  output$table <- DT::renderDataTable({
    datatable(
      iris,
      options = list(
        pageLength = 10
      ),
      rownames = FALSE
    ) %>% 
      formatStyle(
        'Sepal.Length',
        backgroundColor = styleEqual(c(5, 6), c('yellow', 'orange'))
      )
  })
}

shinyApp(ui = ui, server = server)