Write out a bunch of tables to an excel file pipeable workflow

table_list_excel.R

if (!require("pacman")) install.packages("pacman"); library(pacman)
p_load(tidyverse, openxlsx, magrittr, pander, numform)


## make an environment to store everything
my_tables <- new.env()


## basic boiler plate chunk to add 
## %T>%
##    {assign('yearly_billings_and_percent_change', ., envir = my_tables)} 

## Example table 1
mtcars %>%
    mutate(perc_disp = disp * 100) %>%
    head(5) %T>%
    {assign('mtcars_transformed', ., envir = my_tables)} %>%
    data.frame(stringsAsFactors = FALSE, check.names = FALSE) %>%
    pander::pander(split.tables = Inf, justify = numform::alignment(.))



## Example table 2
CO2 %>%
    mutate(
        Treatment = abbreviate(Treatment),
        conc_uptake = conc/uptake
    ) %>%
    head(5) %T>%
    {assign('co2_transformed', ., envir = my_tables)} %>%
    data.frame(stringsAsFactors = FALSE, check.names = FALSE) %>%
    pander::pander(split.tables = Inf, justify = numform::alignment(.))

## write file to multi tabbes excel
as.list(my_tables) %>%
    openxlsx::write.xlsx('my_analysis_tables.xlsx')