Commit 7959cf02 authored by Maike Kleemeyer's avatar Maike Kleemeyer
Browse files

Update generate_report.Rmd

parent 82e24ec5
......@@ -326,7 +326,7 @@ factors %>%
relocate(items) %>%
mutate_all(~cell_spec(
.x,
color = ifelse(abs(.x) %in% color.me, "red", "black"))) %>%
color = ifelse(abs(.x) %in% color.me, "blue", "black"))) %>%
kbl(format = "html", escape = F) %>%
kable_paper("striped") %>%
pack_rows("Scale A", 1, 3) %>%
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment