R/save_prediction_today.R

In KWB-R/kwb.flusshygiene.app: R Package Implementing the Flusshygiene Application

# save_prediction_today --------------------------------------------------------
save_prediction_today <- function(
  prediction_today, today_string, root = get_root()
)
{
  paths <- create_folder_structure(root)

  filename <- sprintf("Vorhersage_%s.csv", today_string)
  file <- file.path(paths$predictions, filename)

  write_input_file(
    x = prediction_today,
    file = gsub("\\.csv$", "_2.csv", file),
    context = paste("prediction for", today_string),
    sep = ","
  )

  file
}