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
kblOut('Egan Family - LT', vol_target)
\newpage
kblOut('Egan Family - MT', vol_target)
\newpage
kblOut('Fineburg, Herbert', vol_target)
\newpage
kblOut('Pamukcu, Rifat', vol_target)
\newpage
kblOut('Pink Flowers Partnership', vol_target)
\newpage
kblOut('Simosa, Armando & Maria', vol_target)
\newpage
kblOut('Simosa, Jesus', vol_target)
\newpage
kblOut('Toner, Cary & Maryann', vol_target)
\newpage
kblOut('McGowen, Fran and Polly', vol_target)
kblOut('McGowen DAF, Fran and Polly', vol_target)
\newpage
kblOut('McGowen Investments', vol_target)
\newpage
kblOut('McGowen DAF, Matt and Lindsay', vol_target)
\newpage
kblOut('McGowen Enterprises', vol_target)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.