R/f_col_cell.R

In tvroylandt/gravitype: Gravity Pole emploi

#' Format des cellules dans reactable
#'
#' @param value valeur de la cellule
#' @param index id de la ligne
#'
#' @return un format
#' @export
#'
f_col_cell <- function(value, index) {
  if (index == 1)
    f_col_bornes(value, -0.58, -0.22, 0.12, 0.51)
  else if (index == 5)
    f_col_bornes(value, -0.91, -0.48, 0.14, 0.65)
  else if (index == 6)
    f_col_bornes(value, -0.81, -0.81, 0.69, 0.69)
  else if (index == 7)
    f_col_bornes(value, -0.60, -0.32, 0.05, 0.60)
  else if (index == 8)
    f_col_bornes(value, -0.66, -0.13, 0.31, 0.61)
  else if (index == 9)
    f_col_bornes(value, -1.05, -0.23, 0.40, 0.82)
  else if (index == 10)
    f_col_bornes(value, 0.10, 0.14, 0.25, 0.41)
}