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 curre