R/save_current.R

In currr: Apply Mapping Functions in Frequent Saving

save_current <- function(out, runtime, id, name = "xx", .board = NULL) {
  # TODO name
  # TODO board

  saveRDS(id, file = paste0(".currr.data/", name, "/id_", id, ".rds"))
  saveRDS(runtime, file = paste0(".currr.data/", name, "/runtime_", id, ".rds"))
  saveRDS(out, file = paste0(".currr.data/", name, "/out_", id, ".rds"))

  update_status()

}