Проблемы при использовании вместе cell_spec и mutate - PullRequest
Новая
       17

Проблемы при использовании вместе cell_spec и mutate

0 голосов
/ 14 марта 2019

Я хочу написать функцию, используя пакет kableExtra.Цель состоит в том, чтобы ввести таблицу или фрейм данных и вернуть его с несколькими ячейками, выделенными жирным шрифтом и с другим цветом шрифта.

Функция ниже: 

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)

}

Например: 

xKable(tau = head(iris), var = "Sepal.Length", cond= ">=5", strCol = "green")

Это не работает.Однако, если я делаю это вручную (написано ниже), то это работает: 

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"))

Я думаю, что проблема заключается во введении переменных var и cond как символа.Как я могу ввести эти переменные или изменить их обработку внутри функции, чтобы она распознавалась функцией?

Заранее спасибо!

...