In alejandro-sotolongo/InvTools:

knitr::opts_chunk$set(echo = FALSE, warning = FALSE, error = FALSE, message = FALSE)

library(InvTools)
library(knitr)
library(kableExtra)

vol_target <- 'd2'
wr <- Wrangler$new(write_fail_csv = FALSE)
kblOut <- function(client_name, vol_target) {
  client <- wr$mergeClientFrontier(client_name, vol_target)
  kable(client$client_fmt, align = c('l', 'l', 'r', 'r', 'r', 'r')) %>% 
    kable_styling(latex_options = 'striped', font_size = 10) %>%
    row_spec(0, bold = TRUE) %>%
    row_spec(nrow(client$client_fmt), bold = TRUE)
}

\newpage

Egan Family Long-term Portfolio

kblOut('Egan Family - LT', vol_target)

\newpage

Egan Family Medium-Term Portfolio

kblOut('Egan Family - MT', vol_target)

\newpage

Fineburg Family

kblOut('Fineburg, Herbert', vol_target)

\newpage

Pamukcu, Rifat

kblOut('Pamukcu, Rifat', vol_target)

\newpage

Pink Flowers

kblOut('Pink Flowers Partnership', vol_target)

\newpage

Simosa Family

kblOut('Simosa, Armando & Maria', vol_target)

\newpage

Simosa, Jesus

kblOut('Simosa, Jesus', vol_target)

\newpage

Toner Family

kblOut('Toner, Cary & Maryann', vol_target)

\newpage

McGowen, Fran and Polly

kblOut('McGowen, Fran and Polly', vol_target)

McGowen DAF, Fran and Polly

kblOut('McGowen DAF, Fran and Polly', vol_target)

\newpage

McGowen Investments

kblOut('McGowen Investments', vol_target)

\newpage

McGowen DAF, Matt and Lindsay

kblOut('McGowen DAF, Matt and Lindsay', vol_target)

\newpage

McGowen Enterprises

kblOut('McGowen Enterprises', vol_target)

alejandro-sotolongo/InvTools documentation built on Nov. 1, 2019, 9:08 p.m.