Форматировать текст внутри color_bar {formattable} - PullRequest
Новая
       45

Форматировать текст внутри color_bar {formattable}

0 голосов
/ 03 июня 2018

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

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

library(tidyverse)
library(knitr)
library(kableExtra)
library(formattable)

df <- tibble (
  rank = c(1,2,3),
  tree = c("Norway Maple", "Honey Locust", "Colorado Blue Spruce"),
  number = c(74688, 24286, 21917)
)

df %>% 
  mutate(
    tree = cell_spec(tree, "html", color = "black"),
    number = color_bar()(number)) %>% 

  kable("html", escape = F,  align = c("l", "l")) %>%
  kable_styling(bootstrap_options = c("hover", "responsive", "condensed"), full_width = F, position = "float_left")  %>%
  column_spec(3, width = "10cm")
...