Using index of value in function in R

Question

For my reactable table I want to create a function that compares 2 columns, namely one of this year and one of last year. I want the function to color the value in the current year column based on whether or not it's higher or lower than the value last year. So if the value is higher it should turn green, etc.

My function works for the most part but I can't get the function to access the index number of the value in the function.

This is what I have so far:

library(reactable)
reactable(test, 
          highlight = TRUE,
          defaultPageSize = 20,
          columns = list(
            Maand = colDef(footer = "Totaal"),
            year2020 = colDef(style = function(value) {
              if (value > test[....index of value here...., "year2019"] ) {
                color <- "#008000"
                } else if (value >1) {
                  color <- "#e00000"
                  } else {
                    color <- "#777"
                    }
              list(color = color, fontWeight = "bold")
              })
          ),
          defaultColDef = colDef(footer = function(values) {
            if (!is.numeric(values)) return()
            sum(values)
            },
            footerStyle = list(fontWeight = "bold")),
          rowClass = "my-row"
          )

It does work when I use a random index number like this:

reactable(test, 
          highlight = TRUE,
          defaultPageSize = 20,
          columns = list(
            Maand = colDef(footer = "Totaal"),
            year2020 = colDef(style = function(value) {
              if (value > test[1, "year2019"] ) {
                color <- "#008000"
                } else if (value >1) {
                  color <- "#e00000"
                  } else {
                    color <- "#777"
                    }
              list(color = color, fontWeight = "bold")
              })
          ),
          defaultColDef = colDef(footer = function(values) {
            if (!is.numeric(values)) return()
            sum(values)
            },
            footerStyle = list(fontWeight = "bold")),
          rowClass = "my-row"
          )

Can anyone tell me what I'm doing wrong? Thanks in advance!

question from:https://stackoverflow.com/questions/65617449/using-index-of-value-in-function-in-r

Answer 1

Waitting for answers