[R-es] Texto en color rojo en celdas especificas de una tabla

[Marcuzzi, Javier Rubén]

Perdón, el archivo era otro, esta es la versión que funciona.

<<results=tex>>=
da <- data.frame(id=letters[1:5], score=1:5*2)
col <- function(x){
  ifelse(x>7,
         paste("\\color{blue}{", formatC(x, dig=2, format="f"), "}"),
         paste("\\color{red}{", formatC(x, dig=2, format="f"), "}"))
}
da$score.string <- col(da$score)

print(xtable(da[,c("id","score.string")]), sanitize.text.function = 
function(x){x})
@

-----Mensaje original----- 
From: Rubén Gómez Antolí
Sent: Thursday, May 09, 2013 8:09 AM
To: r-help-es
Subject: Re: [R-es] Texto en color rojo en celdas especificas de una tabla

Hola:

El 09/05/13 12:24, Proyecto R-UCA escribió:
> La clave está en la función sanitize.text.function:
>
> da<- data.frame(id=letters[1:5], score=1:5*2)
> da
> col<- function(x){
>   ifelse(x>7,
>   paste("\\textcolor{blue}{", formatC(x, dig=2, format="f"), "}"),
>   paste("\\textcolor{red}{", formatC(x, dig=2, format="f"), "}"))
>   }
>   da$score.string<- col(da$score)
>   da$score.string
>   require(xtable)
>   da
>
> print(xtable(da[,c("id","score.string")]),  type="latex",
> sanitize.text.function = function(x){x})

Os prometo que he utilizado esa función en innumerables ocasiones, para
evitar problemas con el $ y demás, pero ni se me ha pasado por la cabeza
utilizarla ahora. :^(

Muchísimas gracias.

Salud y Revolución.

Lobo.
-- 
Libertad es poder elegir en cualquier momento. Ahora yo elijo GNU/Linux,
para no atar mis manos con las cadenas del soft propietario.
Porque la libertad no es tu derecho, es tu responsabilidad.
http://www.mucharuina.com
---------
Desde El Ejido, en Almería, usuario registrado Linux #294013
http://www.counter.li.org

_______________________________________________
R-help-es mailing list
R-help-es en r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es