Color DT table columns if there are matching with other columns

Is there a way to color columns if there are equal to other columns. Example

library(shiny)
library(DT)

ui <- fluidPage(
  dataTableOutput("iris")
)

server <- function(input, output, session) {
  output$iris <- renderDataTable({
    datatable(iris)
  })
}

shinyApp(ui, server)

Expected output Color Sepal.Length as green only when are equal to Sepal.width or else color as red. Is there a way to achieve this?