R/generate_csv_from_submission_df.R

In reichlab/cdcForecastUtils: Utility functions for CDC forecasts

#' Create csv file suitable for submission
#' 
#' @param submission_df data frame
#' @param path full path to csv file
#' 
#' @export
generate_csv_from_submission_df <- function(submission_df, path) {
  current_date <- submission_df$forecast_week[1]
  write.csv(submission_df, file = paste0(path, current_date, ".csv"),row.names = F)
}