Multiple Tickers.RMd

---
title: "R Notebook"
output: html_notebook
---

Single Presentation with Slides on Multiple Tickers


```{r}
library(tidyverse)
library(officer)
library(quantmod)
library(yfinance)
library(ggdark)
library(rvg)

get_placeholder_dims <- function(presentation, label, dim = "width", unit = "in") {
  # Gets the width and height of the powerpoint placeholders and coverts them to needed unit
   layout <- officer::layout_properties(presentation)
   ifelse(
     dim=="width",
     dimension <- layout$cx[match(label, layout$ph_label)],
     dimension <- layout$cy[match(label, layout$ph_label)]
   )
   
   if (unit == "in") {
     dimension
   } else if (unit == "px") {
     dimension*96
   } else if (unit == "cm") {
     dimension * 2.54
   } else stop(glue::glue("Only 'in', 'px' and 'cm' are supported as units. You entered '{unit}'."))
}


company_slide <- function(presentation, ticker, chart_path) {
  company_name <- yfinance::get_company_names(ticker)
  summary <- yfinance::get_summaries(ticker)
  ttm_performance_path <- glue::glue("{chart_path}/{ticker} TTM Chart.png")
  
  prices <- getSymbols(ticker, from=Sys.Date()-365, to = Sys.Date(), auto.assign = FALSE)
  png(filename = ttm_performance_path, 
     width = get_placeholder_dims(presentation, "TTM Perfromance", dim ="width", unit = "px"),
     height = get_placeholder_dims(presentation, "TTM Perfromance", dim = "hight", unit = "px")
  )
  chartSeries(prices, name = glue::glue("{ticker} - 12 Months"), type="line")
  dev.off()
  
  
  income_stat <- get_income(ticker)
  
  ebit_margin <- 
    income_stat %>% 
    mutate(
      ebit_margin = ebit / totalRevenue
    ) %>% 
    ggplot()+
    geom_bar(mapping = aes(x = date, y = ebit_margin), stat = "identity", fill = "#5efc82", width = 0.4)+
    geom_text(
      mapping = aes(x = date, y = ebit_margin, label = paste0(round(ebit_margin*100, 2), "%")),
      vjust = -0.2
    )+
    scale_y_continuous(labels = scales::percent_format(accuracy = 1))+
    labs(title = "EBIT Margin", x = "Date", y = "EBIT Margin")+
    dark_theme_gray()+
    theme(
      text = element_text(size = 11),
      plot.background =element_blank(), 
      panel.background = element_blank(),
      panel.grid.major = element_line(color = "grey30", size = 0.2),
      panel.grid.minor = element_blank()
    )
  
  sales_growth <- 
    income_stat %>% 
    arrange(date) %>% 
    mutate(
      sales_growth = totalRevenue / lag(totalRevenue) - 1
    ) %>% 
    dplyr::filter(!is.na(sales_growth)) %>% 
    ggplot()+
    geom_bar(mapping = aes(x = date, y = sales_growth), stat = "identity", fill = "#6200ea", width = 0.4)+
    geom_text(
      mapping = aes(x = date, y = sales_growth, label = paste0(round(sales_growth*100, 2), "%")),
      vjust = -0.2
    )+
    scale_y_continuous(labels = scales::percent_format(accuracy = 1))+
    labs(title = "Sales Growth", x = "Date", y = "Sales Growth")+
    dark_theme_gray()+
    theme(
      text = element_text(size = 11),
      plot.background = element_blank(),
      panel.background = element_blank(),
      panel.grid.major = element_line(color = "grey30", size = 0.2),
      panel.grid.minor = element_blank()
    )
  
  presentation %>% 
    add_slide(layout = "Company Summary", master = "Office Theme") %>%
        ph_with(value = company_name, location = ph_location_label(ph_label = "Company Name")  ) %>% 
        ph_with(value = ticker, location = ph_location_label(ph_label = "Ticker")  ) %>% 
        ph_with(value = glue::glue("Sector: {summary$sector}") , location = ph_location_label(ph_label = "Sector")  ) %>% 
        ph_with(value = glue::glue("Industry: {summary$industry}"), location = ph_location_label(ph_label = "Industry")  ) %>% 
        ph_with(value = summary$longBusinessSummary, location = ph_location_label(ph_label = "Company Summary")  ) %>% 
        ph_with(value = external_img(ttm_performance_path), location = ph_location_label(ph_label = "TTM Perfromance")  ) %>% 
        ph_with(value = rvg::dml(ggobj = sales_growth, bg = "transparent"), location = ph_location_label(ph_label = "Sales Growth")  ) %>% 
        ph_with(value = rvg::dml(ggobj = ebit_margin, bg = "transparent"), location = ph_location_label(ph_label = "EBIT Margin")  ) 
  
}
```



```{r}
tickers <- c("FB", "AAPL", "AMZN", "NFLX", "GOOG")


pres <- read_pptx("stock_summary_template.pptx") %>% 
        remove_slide(index = 1) %>%
        company_slide(ticker = "FB", chart_path = "presentations/images") %>% 
        company_slide(ticker = "AAPL", chart_path = "presentations/images") %>% 
        company_slide(ticker = "AMZN", chart_path = "presentations/images") %>% 
        company_slide(ticker = "NFLX", chart_path = "presentations/images") %>% 
        company_slide(ticker = "GOOG", chart_path = "presentations/images")
      


print(pres, glue::glue("presentations/FAANG Summaries {Sys.Date()}.pptx"))
```

```
initial_object <- read_pptx("stock_summary_template.pptx") %>% 
  remove_slide(index = 1)
  
pres_reduce <- reduce(tickers, 
                      company_slide, 
                      chart_path = "presentations/images",
                      .init = initial_object)
```