-
Notifications
You must be signed in to change notification settings - Fork 0
/
create_ohi_gt.R
50 lines (39 loc) · 1.75 KB
/
create_ohi_gt.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#' Create OHI "gt" Table. This is used in the Onboarding Book using the schedule
#' Great gt resources:
#' - https://evamaerey.github.io/tables/about
#' - http://www.danieldsjoberg.com/gt-and-gtsummary-presentation/
#'
#' @param wrangled_dt a wrangled data frame to make as a gt table
#'
#' @return sched_gt a formatted table
#' @export
#'
#' @examples
#'
#' Troubleshooting: wrangled_dt <- sched
create_ohi_gt <- function(wrangled_dt) {
sched_gt <- wrangled_dt %>%
gt() %>%
## understand as markdown
fmt_markdown(columns = vars(Action)) %>%
## title/header
tab_header(title = "OHI Onboarding Roadmap") %>%
opt_align_table_header(align = "left") %>%
tab_style(cell_text(weight = "bold"), locations = cells_title()) %>%
### ^^ figure out later: Warning message:
# In if ((loc$groups %>% rlang::eval_tidy()) == "title") { :
# the condition has length > 1 and only the first element will be used
## cells_body: make table body white (not striped), and indent
tab_style(cell_fill("white"), locations = cells_body()) %>%
tab_style(cell_text(indent = pct(1.5)), locations = cells_body()) %>%
## cells_column_labels: grey background and bold
# troubleshooted for hours: jihongzhang.org/post/study-notes-gt-package-and-format-table/
tab_style(cell_fill("grey97"),
locations = cells_column_labels(columns = gt::everything())) %>%
tab_style(cell_text(weight = "bold"),
locations = cells_column_labels(columns = gt::everything())) %>%
## Chapter cell_row_groups: make them bold and grey
tab_style(cell_fill("grey97"), locations = cells_row_groups()) %>%
tab_style(cell_text(weight = "bold"), locations = cells_row_groups())
return(sched_gt)
}