In ddsjoberg/bstfun: Functions for the MSK Biostatistics Department

knitr::opts_chunk$set(echo = TRUE)

set.seed({{format(Sys.Date(), format = "%Y%m%d")}})

Analytic Data Import

library(biostatR); library(tidyverse)

# setting MSK ggplot theme, color palette, and gtsummary theme
theme_set(mskRvis::theme_biostat()); mskRvis::set_msk_palette()
{{(ifelse(tolower(Sys.info()[["user"]]) %in% eval(as.list(bstfun::theme_gtsummary_msk)$name), glue::glue("theme_gtsummary_msk('{tolower(Sys.info()[['user']])}')"), "theme_gtsummary_compact()"))}}

# importing master analytic data set
df_main <- readRDS(file = here_data("df_main.Rds"))

Analysis

Save Results

# list result objects here. save only those needed for the final report
save(
  df_results, gts_table1,
  file = here_data("results.Rdata")
)

ddsjoberg/bstfun documentation built on July 4, 2023, 10:59 a.m.