## jesusForData_Forecasting.r

jesusForData_Forecasting <- function(..., updateBackupFile=is.null(fakeToday)) {
  
  ## Confirm that fakeToday exists
  if (!exists("fakeToday")) {
    warning("'fakeToday' does not exist. Defaulting to NULL")
    fakeToday <- NULL
  }
  
  ## If there is no fakeToday set, save data as normal
  if (is.null(fakeToday))
    jesusForData(..., updateBackupFile=updateBackupFile)
  else
    jesusForData(..., 
                 info = paste0("fakeToday_is_", format.Date(fakeToday, format="%Y%m%d")), 
                 dir  = data.p("forecasting"), 
                 updateBackupFile = updateBackupFile
                 )
}