Quiero crear una función usando el paquete kableExtra. El objetivo es introducir una tabla o dataframe, y que la función la retorne con algunas celdas en negrita y con un color de texto diferente.
El código de la función es:
xKable <- function(tau, var, cond, strCol){
require(kableExtra)
require(dplyr)
kab <- tau %>%
mutate(var = ifelse(paste(var, cond, sep=""), cell_spec(var, "latex", bold = T, color = strCol), var)) %>%
kable("latex", escape = F, booktabs = T) %>%
kable_styling(latex_options = c("hold_position", "scale_down"))
return(kab)
}
Un ejemplo de su uso es:
xKable(tau = head(iris), var = "Sepal.Length", cond= ">=5", strCol = "green")
Pero no funciona. Sin embargo, si lo hago de forma manual (escrito debajo), entonces sí que funciona:
head(iris)%>%
mutate(Sepal.Length = ifelse(Sepal.Length>=5, cell_spec(Sepal.Length, "latex", bold = T, color = "green"), Sepal.Length)) %>%
kable("latex", escape = F, booktabs = T) %>%
kable_styling(latex_options = c("hold_position", "scale_down"))
Creo que el problema se da al introducir las variables var y cond como un carácter. Cómo podría introducir estas variables, o cambiar el tratamiento que se le da dentro de la función, para que esta las reconozca?
Muchas gracias de antemano!