In nguyenngocbinh/bml_stocks: Provide simple forecast on stocks price

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(xgboost)
library(drake)
library(tidymodels)
library(modeltime)
library(tidyverse)
library(tidyquant)
library(lubridate)
library(timetk)
library(modeltime.ensemble)
library(dplyr)
# R.utils::sourceDirectory("D:/R/bml_stocks/R/")
# R.utils::sourceDirectory("R/")

print_results <- function(ticker){
  # print(paste("Stock price", ticker))

  pred <- readd(paste0("modeling_data_", ticker), 
                character_only = TRUE) %>% 
    mutate(.ticker = ticker) %>% 
    select(.ticker, .index, .value, .low = .conf_lo, .high = .conf_hi, .model_desc ) 

  return(pred)
}

tickers <-  list.files("data") %>% stringr::str_sub(7, 9) 
x <- lapply(tickers, print_results) 


for (i in 1:length(x)) {
  print(knitr::kable(x[[i]]))
  cat('\n\n<!-- -->\n\n')
}