inst/models/catboost/model_store.R

In data-science-competitions/Modeling-Earthquake-Damage: Richter's Predictor: Modeling Earthquake Damage

#' @title Log the Results
#' @description Log the results (predictions and model objects) in a concise and
#'   consistent manner.
model_store <- function(){
    ## Store the files generated during training
    target <- file.path(getOption("path_archive", default = tempdir()), model_name, "logs")
    source <- params$train_dir
    dir.create(target, showWarnings = FALSE, recursive = TRUE)
    file.copy(source, target, recursive = TRUE)

    return(invisible())
}