向dataStyle的formatStyle添加条件语句-R

Question

我正在编写一个具有数据表的Shiny应用程序。我希望根据两列的值对行进行颜色编码。即使30天列中的值大于“总体”列，所有值均为黑色。我也尝试过for循环，但这也不起作用。是否可以比较数据表中的两列并根据比较结果进行样式更改？

setDT(a)
a[,group_i := as.Date(DATE) >= Sys.Date()-30]
output$tab<-DT::renderDataTable({
  dt<-datatable(a[, .(
  "Overall Percent" = round(sum(OPERATION_STATUS == "FAIL") / .N * 100, 2),
  "30 Day Percent" = round(sum(OPERATION_STATUS[group_i] == "FAIL") / sum(group_i) * 100, 2)
   ),
  keyby = .("Area" = CRIT_CODE)], rownames = FALSE) %>% 
  formatStyle("Area", color=ifelse(("Overall Percent" < "30 Day Percent"), "red", "black"), target="row)
  return(dt)