Tengo una tabla en el siguiente formato (encabezados de columna, así como Desde/Hasta se refieren a meses) Las columnas se refieren a meses numéricos distintos (que siempre serán un múltiplo de 12) para los cuales proporciono un valor año por año. Para los períodos en los que no tiene sentido (por ejemplo, del mes 25 en adelante para una columna de 20 meses), quiero oscurecer los campos. Entonces quiero llegar desde:

a esto:

Aquí está el código que me está ayudando a comenzar con esto, pero no estoy seguro de cómo puedo hacer referencia a una celda para el nombre de su columna, así como la columna "Para" respectiva

 library(dplyr) library(rhandsontable) colheaders<-c(24,36,48,60) df<-matrix(0,nrow = ceiling(max(colheaders)/12), ncol=length(colheaders)+2) %>% data.frame() %>% `colnames<-`(c('From','To',colheaders)) %>% mutate(From=c(1:ceiling(max(colheaders)/12))*12-11) %>% mutate(To=c(1:ceiling(max(colheaders)/12))*12) rhandsontable(df) %>% hot_col(as.character(colheaders), format = "0.00%") %>% hot_col(c("From","To"), format = "0", readOnly = T) %>% hot_cols(renderer = " function (instance, td, row, col, prop, value, cellProperties) { Handsontable.renderers.NumericRenderer.apply(this, arguments); if (col < row) { td.style.background = 'grey'; td.style.color = 'grey'; } }")

Si puedo obtener ayuda, escriba una lógica que, para cada celda, si el valor respectivo de To es mayor que el nombre de la columna, táchelo (por ejemplo, cada celda de la columna 24 se compara con 12, 24, 36, etc. y 36 en ella está en negro) es ayudar a desbloquearme. Agradezco cualquier ayuda en esto.