Другим опрятным и простым решением является внутренняя функция recursivePackageDependencies
из библиотеки packrat
. Однако пакет должен быть установлен в некоторой библиотеке на вашем компьютере. Преимущество заключается в том, что он работает с самодельными пакетами, отличными от CRAN. Пример:
packrat:::recursivePackageDependencies("ggplot2",lib.loc = .libPaths()[1])
:
[1] "R6" "RColorBrewer" "Rcpp" "colorspace" "dichromat" "digest" "gtable"
[8] "labeling" "lazyeval" "magrittr" "munsell" "plyr" "reshape2" "rlang"
[15] "scales" "stringi" "stringr" "tibble" "viridisLite"
Вы можете извлечь строки в цикле и запустить color_tile()
для них.
library(tidyverse)
library(knitr)
library(kableExtra)
library(formattable)
set.seed(1)
df <- data.frame(letters = letters[1:5],
foo = rnorm(5, 20),
bar = rnorm(5, 20),
baz = rnorm(5, 20),
bash = rnorm(5, 20),
stringsAsFactors = FALSE)
for(i in 1:nrow(df)) df[i,] <- color_tile("pink", "lightblue")(df[i,])
df %>%
kable(escape = F) %>%
kable_styling("hover", full_width = F) %>%
column_spec(5, width = "3cm") %>%
add_header_above(c(" ", "Hello" = 2, "World" = 2))