knitr::opts_chunk$set(echo = TRUE)
set.seed({{format(Sys.Date(), format = "%Y%m%d")}})

Analytic Data Import

library(hotverse); library(tidyverse)

# setting MSK ggplot theme, gtsummary theme, and color palette
theme_set(mskRvis::theme_biostat()); theme_gtsummary_msk("hot"); mskRvis::set_msk_palette()

# 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, gt_table1,
  file = here_data("results.Rdata")
)


ddsjoberg/hotfun documentation built on Dec. 12, 2021, 3:41 a.m.