2015-09-28 35 views
3

格式行目前我有这样的:闪亮数据表:这取决于两个条件

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天,它应该是绿色的。

我该如何做到这一点?

回答

3

您可以添加一个额外的列checkSignalDataFrame,该列检查列200d MA50v200d MA。比使用它在formatStyle和隐藏它visible

+0

但是,您可以显示formatStyle命令格式列'50v200d MA'根据新列检查的值吗? – MichiZH

+0

本文档显示如何执行此操作:http://rstudio.github.io/DT/010-style.html – user5029763