#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.