Necesito diseñar la tabla de datos R Shiny, usando Java Script así (como escaleras en la parte inferior de DT, que muestra los valores de predicción: cursiva y gris).
Estoy tratando de usar esta función ( de esta pregunta ), pero toda mi tabla está en cursiva a partir de la tercera columna. ¿Cómo puedo arreglarlo? (supongamos que mi ciclo for es incorrecto)
rowCallback <- function(rows){ c( "function(row, data, num){", sprintf(" var rows = [%s];", paste0(rows-1, collapse = ",")), " for(let j=data.length; j >= 3; j--){", " for(let i=j; i<data.length; i++){", " $('td:eq('+i+')', row)", " .css({'background-color': 'rgb(211,211,211)', 'font-style': 'italic', 'font-color': 'rgb(230,230,230)'});", " }", " }", "}" )}
No probado, intentaría:
rowCallback <- c( "function(row, data, num, index){", " var ncols = data.length;", " for(let j=ncols; j > ncols-index; j--){", " $('td:eq('+j+')', row)", " .css({'background-color': 'rgb(211,211,211)', 'font-style': 'italic', 'font-color': 'rgb(230,230,230)'});", " }", "}" )Notas:
No necesita una función R, porque el argumento de rows no se usa.
$('td:eq('+j+')', row) selecciona el j-ésimo elemento de la fila actual, por lo que no tiene que recorrer las filas.