r - Shiny 的数据表 : Format row depending on two conditions

Question

目前我有这个:

datatable(SignalDataFrame,selection = 'single', options=list(dom='ft')) %>%
    #datatable(ResultDF, options=list(dom='ft')) %>%
      formatStyle(
        '200d MA',
        backgroundColor = styleInterval(0, c('#e6b8b7', '#d8e4bc'))
      ) %>%
      formatStyle(
        '50v200d MA',
        backgroundColor = styleInterval(0, c('#e6b8b7', '#d8e4bc'))
      ) %>%
      formatDate(c(3,5,6), "toLocaleDateString")
    })

如您所见，样式间隔仅将值 <0 设置为红色，将值 >0 设置为绿色。但是，我只想将红色单元格格式化为绿色单元格，它们各自的日期“小于”10 天。

例如，如果此单元格中的值 <0 且第 3 列中的日期小于 10 天，则 200dMA 列(即第 2 列)应仅显示红色。如果该值 >0 且第 3 列中的日期小于 10 天，则它应该为绿色。

我怎样才能做到这一点？

Answer 1

您可以向 SignalDataFrame 添加额外的列 check 以检查列 200d MA 和 50v200d MA。然后，在 formatStyle 中使用它并使用 visible 隐藏它。