Мне нужна помощь в добавлении двух функций форматирования в столбец с использованием formattable (на самом деле я использую format_table, но я думаю, что это то же самое использование). Я могу добавить цветные полосы:
data <- data.frame(id = 1:10, x = round(rnorm(10, 100, 25),0))
myhtml<-format_table(data,list(x=color_bar("lightgreen")))
write(myhtml,outfile)
И я могу отформатировать шрифты
myhtml<-format_table(data,list(x=formatter("span",style="font-family:verdana; font-size:8")))
write(myhtml,outfile)
Но я действительно не могу совместить эти две функции: - (
По сути, я не понимаю, как передать и color_bar, и formatter в один и тот же столбец.
Любая помощь будет оценена.
РЕДАКТИРОВАТЬ: МОЕ РЕШЕНИЕ
Я нашел этот демо код (это небольшая модификация для код для color_bar)
И мне не потребовалось много времени, чтобы ответить на мой собственный вопрос, добавив пару строк:
myhtml<-format_table(data, list(x = formatter("span",
style = x ~ style(
display = "inline-block",
direction = "rtl",
"border-radius" = "4px",
"padding-right" = "2px",
"background-color" = csscolor("lightgray"),
width = percent(proportion(x)),
"font-family" = "verdana",
"font-size" = 10,
color = csscolor(gradient(x, "darkgreen", "red"))
))))
write(myhtml,outfile)
