Shiny datatable: Format row depending on two conditions

Question

Currently I have this:

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")
    })

As you see, style interval only formats values <0 in red and values >0 in green. I however want only to format cells in red respective in green for which their respective date is "younger" than 10 days.

For example column 200dMA (being column 2) should be only red if the value in this cell is <0 and the date in column 3 is younger than 10 days. And it should be green if the value is >0 and the date in column 3 is younger than 10 days.

How can I achieve that?

user5029763 · Accepted Answer · 2015-09-28T16:35:38.197

3

You could add an extra column check to SignalDataFrame that checks columns 200d MA and 50v200d MA. Than, use it at formatStyle and hide it with visible.

edited Sep 28 '15 at 16:35

answered Sep 28 '15 at 15:09

user5029763

1,903
1
15
23

But can you show the formatStyle command to format column '50v200d MA' based on the value of the new column check? – MichiZH Oct 23 '15 at 11:34
This documentation shows how to do that: http://rstudio.github.io/DT/010-style.html – user5029763 Oct 23 '15 at 12:21

Shiny datatable: Format row depending on two conditions

1 Answers1

Linked