R/new-eval.R

In davidallen02/pamr:

new_eval <- function(ticker, date = Sys.Date()){

   date <- date %>% as.Date()
   date_long <- date %>% format("%B %d, %Y")
   date_short <- date %>% format("%Y%m%d")

   ticker_bold <- ticker %>% stringr::str_to_upper() %>% paste0("**(", ., ")**  ")

   x <- paste(
      "---",
      "title:",
      "output:",
      "  pdf_document:",
      "  word_document: default",
      "  html_document: default",
      "urlcolor: blue",
      "---",
      "",
      date_long,
      "",
      ticker_bold,
      "Buy: \\$XX - \\$XX, Eval \\$XX & \\$XX  ",
      "Price Target: \\$XX  ",
      sep = "\n"
   )

   eval_path <- paste0("./Evals/", date_short, "-", ticker, "-eval.Rmd")

   readr::write_file(x, path = eval_path)

   file.edit(eval_path)
}