How to put color in some datatable values?

[M_AcostaCH]

Hi community

Im want make better this table. Im want put color when the values are 0 and different to 0.

library(tidyverse)

data <- structure(list(`CANTIDAD DE DATOS VACIOS` = c(0L, 0L, 37987L, 
0L, 0L, 0L, 49L, 0L, 37987L, 0L, 24985L, 37987L, 0L, 13378L, 
14368L, 16792L, 37987L, 14946L, 14943L, 22868L, 0L, 10L, 0L, 
5142L, 29553L, 18306L, 0L, 37987L, 37987L, 0L, 34163L, 37987L, 
37987L, 37987L, 37987L, 37987L, 37987L, 37987L, 37987L, 36268L, 
37987L, 37987L, 0L, 0L, 37938L)), class = "data.frame", row.names = c("COD_INTRO", 
"ACCESION", "MISION", "TAXNO", "GENERO", "ESPECIE", "DESIGNADA_FAO", 
"EST_BIOLOGICO", "ESTADO", "HABITO", "PROCEDENCIA", "HABITAT", 
"PAIS_ORIGEN", "DEPARTAMENTO", "MUNICIPIO", "UBICACION", "CIUDAD_CERCANA", 
"LATITUD", "LONGITUD", "ALTITUD", "PAIS_DONANTE", "TECNICO_DONANTE", 
"INSTITUCION_DONANTE", "RESPONSABLE", "OBSERVACION", "F_RECOLECCION", 
"F_RECIBO", "F_REGISTRO", "F_ACTUALIZACION", "UNIDAD_MED", "CANT_COLECTADAS", 
"TOPOGRAFIA", "TIPO_SITIO", "TEXTURA", "DRENAJE", "TIPO_SUELO", 
"LLUVIA", "MESES_SECOS", "NOMBRE_RESP", "CORE", "DETERMINADOR", 
"F_DETERMINADOR", "MLSSTAT", "DOI", "HISTORIC"))

library(DT)

data %>%
  datatable(extensions = 'Buttons',
            class = 'cell-border stripe',
            caption = 'crop: datos vacios segun columna.',
            options = list(dom = 'Blfrtip',
                           buttons = c('csv', 'excel'),
                           lengthMenu = list(c(10,25,50,-1),
                                             c(10,25,50,"All")),
                            pageLength = 45))

Tnks!

[nirgrahamuk]

in general you can achieve any effect in DT that is possible via HTML, if you use datatable's escape=FALSE option.

library(DT)
library(glue)
data.frame(
  x=letters[1:4],
  y= rep(c(0,1),2)
) |> 
  mutate(y=glue('<SPAN STYLE="text-decoration:underline;
                text-decoration-color:{ifelse(y>0,"blue","red")};
                text-decoration-thickness: 5px;">{y}</SPAN>')) |> 
  datatable(extensions = 'Buttons',
            class = 'cell-border stripe',
            escape = FALSE)

sidenote that text-decoration-thickness is one of those very browser dependent properties; if it doesnt look right in rstudio's viewer pane, expand it into your web browser and its more likely to thicken

[M_AcostaCH]

Hi @nirgrahamuk , Im try my data but dont run and Im change y variable.
But just that I want to send this response, Im check the other y in glue (are 3 y).
Im change for others y variables and run well.

Tnks!