date-bug + auto-today

003_powerpoint_slidedeck/003_automate_powerpoint.R

@@ -14,7 +14,7 @@ library(timetk)
 # - Use tidyquant to pull in some stock data
 
 stock_data_tbl <- c("AAPL", "GOOG", "FB", "NVDA") %>%
-    tq_get(from = "2019-01-01", to = "2020-08-31")
+    tq_get(from = Sys.Date()-365*2, to = Sys.Date())
 
 
 # 3.0 DATA WRANGLING ----
@@ -24,13 +24,14 @@ stock_returns_tbl <- stock_data_tbl %>%
     select(symbol, date, adjusted) %>%
     group_by(symbol) %>%
     summarise(
-        week    = last(adjusted) / first(tail(adjusted, 7)) - 1,
-        month   = last(adjusted) / first(tail(adjusted, 30)) - 1,
-        quarter = last(adjusted) / first(tail(adjusted, 90)) - 1,
-        year    = last(adjusted) / first(tail(adjusted, 365)) - 1,
+        week    = last(adjusted) / last(adjusted[date<=last(date)-7]) - 1,
+        month   = last(adjusted) / last(adjusted[date<=last(date)-30]) - 1,
+        quarter = last(adjusted) / last(adjusted[date<=last(date)-120]) - 1,
+        year    = last(adjusted) / last(adjusted[date<=last(date)-365]) - 1,
         all     = last(adjusted) / first(adjusted) - 1
     )
 
+
 # 4.0 PLOTS & TABLES ----
 # - ggplot2 (DS4B 101-R Weeks 4)
 

all-libs.R

@@ -0,0 +1,179 @@
+library(tidyverse)
+library(tidyquant)
+library(gghalves)
+library(readxl)
+library(writexl)
+library(plotly)
+library(tidyverse)
+library(tidyverse)
+library(maps)
+library(mapproj)
+library(radiant)
+library(timetk)
+library(tidyverse)
+library(tidyquant)
+library(esquisse)
+library(modeldata)
+library(shiny)
+library(esquisse)
+library(modeldata)
+library(tidyverse)
+library(tidymodels)
+library(vip)
+library(tidyverse)
+library(tidyquant)
+library(tidyverse)
+library(gt)
+library(visdat)
+library(naniar)
+library(simputation)
+library(tidyverse)
+library(tidyquant)
+library(tidyverse)
+library(tidyverse)
+library(DT)
+library(leaflet)
+library(timetk)
+library(timetk)
+library(rmarkdown)
+library(gt)
+library(tidyquant)
+library(timetk)
+library(tidyverse)
+library(tidyverse)
+library(fs)
+library(tidyverse)
+library(DT)
+library(leaflet)
+library(timetk)
+library(timetk)
+library(tidyverse)
+library(correlationfunnel)
+library(tidyverse)
+library(tidymodels)
+library(xgboost)
+library(vip)
+library(tidyverse)
+library(grafify)
+library(modeltime)
+library(tidymodels)
+library(timetk)
+library(tidyverse)
+library(DBI)
+library(RSQLite)
+library(tidyverse)
+library(ggforce)
+library(tidyquant)
+library(tidyverse)
+library(skimr)
+library(tidyverse)
+library(modeltime)
+library(tidymodels)
+library(tidyverse)
+library(timetk)
+library(lubridate)
+library(corrmorant)
+library(tidyverse)
+library(modelStudio)
+library(DALEX)
+library(tidyverse)
+library(tidymodels)
+library(plotly)
+library(tidyverse)
+library(timetk)
+library(rayshader)
+library(tidyverse)
+library(DataEditR)
+library(tidyverse)
+library(tidyquant)
+library(tidyverse)
+library(tidyverse)
+library(tidyquant)
+library(tidyquant)
+library(tidyverse)
+library(broom)
+library(gt)
+library(fontawesome)
+library(htmltools)
+library(ggside)
+library(tidyverse)
+library(tidyquant)
+library(tidyquant)</code></pre>
+library(tidyverse)
+library(dtplyr)
+library(tidyquant)
+library(shiny)
+library(bslib)
+library(modeldata)
+library(DataExplorer)
+library(plotly)
+library(tidyverse)
+library(ggdist)
+library(tidyquant)
+library(tidyverse)
+library(openxlsx)
+library(tidyquant)
+library(tidyverse)
+library(timetk)
+library(tidyverse)
+library(plotly)
+library(trelliscopejs)
+library(tidyverse)
+library(tidyquant)
+library(ggalt)
+library(correlationfunnel)
+library(tidyquant)
+library(plotly)
+library(tidyverse)
+library(shiny)
+library(tidyverse)
+library(tidyquant)
+library(ggalt)
+library(mmtable2)
+library(gt)
+library(tidyverse)
+library(tidyverse)
+library(broom)
+library(ggfortify)
+library(plotly)
+library(tidyverse)
+library(DataExplorer)
+library(tidyverse)
+library(tidyverse)
+library(timetk)
+library(lubridate)
+library(furrr)
+library(tictoc)
+library(ggstatsplot)
+library(tidyverse)
+library(patchwork)
+library(ggridges)
+library(ggrepel)
+library(maps)
+library(tidyverse)
+library(lubridate)
+library(datapasta)
+library(tidyverse)
+library(lubridate)
+library(timetk)
+library(tidyverse)
+library(performance)
+library(tidymodels)
+library(officer)
+library(janitor)
+library(ggtext)
+library(tidyverse)
+library(tidyverse)
+library(timetk)
+library(modeltime)
+library(modeltime)
+library(modeltime.ensemble)
+library(modeltime.gluonts)
+library(tidyverse)
+library(fs)
+library(tidyverse)
+library(officer)
+library(flextable)
+library(tidyverse)
+library(tidyquant)
+library(timetk)

install-libs.R

@@ -0,0 +1,45 @@
+install.packages("DALEX")
+install.packages("DBI")
+install.packages("DataEditR")
+install.packages("RSQLite")
+install.packages("bslib")
+install.packages("corrmorant")
+install.packages("datapasta")
+install.packages("dtplyr")
+install.packages("flextable")
+install.packages("fontawesome")
+install.packages("furrr")
+install.packages("ggdist")
+install.packages("ggforce")
+install.packages("ggfortify")
+install.packages("gghalves")
+install.packages("ggrepel")
+install.packages("ggridges")
+install.packages("ggside")
+install.packages("ggstatsplot")
+install.packages("ggtext")
+install.packages("grafify")
+install.packages("htmltools")
+install.packages("janitor")
+install.packages("mapproj")
+install.packages("mmtable2")
+install.packages("modelStudio")
+install.packages("modeltime.ensemble")
+install.packages("modeltime.gluonts")
+install.packages("naniar")
+install.packages("openxlsx")
+install.packages("patchwork")
+install.packages("performance")
+install.packages("radiant")
+install.packages("rayshader")
+install.packages("readxl")
+install.packages("rmarkdown")
+install.packages("simputation")
+install.packages("skimr")
+install.packages("tictoc")
+install.packages("tidyquant")
+install.packages("trelliscopejs")
+install.packages("visdat")
+install.packages("writexl")
+install.packages("xgboost")
+