In shirewoman2/Consultancy: Standardized tools for using R within the Simcyp Consultancy Team

knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE, 
                      dpi = 600, 
                      fig.width = 5, 
                      fig.height = 6)

# fig_heading <- data.frame(PKparameter = ParamToUse) %>% 
#    left_join(AllPKParameters %>% select(PKparameter, PrettifiedNames) %>% 
#                 bind_rows(
#                    AllPKParameters %>% select(PKparameter, PrettifiedNames) %>% 
#                       mutate(PKparameter = sub("_dose1|_last", "", PKparameter), 
#                              PrettifiedNames = sub("Dose 1 |Last dose ", 
#                                                    "", PrettifiedNames))), 
#              by = "PKparameter") %>% 
#    pull(PrettifiedNames) %>% unique() %>%
#    sub("ratio", "ratios", .) %>% 
#    sub("Cmax", "C~max~", .) %>% 
#    sub("AUCinf", "AUC~inf~", .) %>% 
#    sub("AUCtau", "AUC~tau~", .) %>% 
#    sub("AUCt", "AUC~t~", .) %>% 
#    str_comma()

Figure XXX. r fig_heading

switch(as.character(show_numbers_on_right), 
                 "TRUE" = patchwork::wrap_plots(G, 
                                                NumTable, 
                                                nrow = 1,
                                                widths = rel_widths),
                 "FALSE" = G)

r fig_caption

shirewoman2/Consultancy documentation built on Feb. 18, 2025, 10 p.m.