#' Select the n most recent files
#'
#' @param data_folder The folder in which data files are located.
#' @param n The number of files to return. Defaults to 4.
#'
#' @details This function return the n most recent files and returns a
#' warning if the number wanted `n` is larger than the number of files.
#'
#' @return A vector of size `n` with the file path.
get_recent_files <- function(data_folder, n = 4) {
    files_info <- file.info(file.path(data_folder, list.files(data_folder,
        include.dirs = FALSE, pattern = "*dore_collection_[a-z]*_seed"
    )))
    files_info[["filepath"]] <- file.path(data_folder, list.files(data_folder,
        include.dirs = FALSE, pattern = "*dore_collection_[a-z]*_seed"
    ))
    files_info <- sort_by(files_info, files_info[["ctime"]], decreasing = TRUE)
    if (n > nrow(files_info)) {
        warning(
            "n = ", n,
            " is too large ! It should be at most ",
            nrow(files_info)
        )
    }
    return(head(files_info[["filepath"]], n = n))
}

#' Identify models
identify_models <- function(files_vec) {
    names(files_vec) <- stringr::str_extract(
        string = files_vec,
        pattern = "(iid|pirho|pi|rho)"
    )
    return(files_vec)
}

build_graph_size_dataframe <- function(collection_list) {
    do.call("rbind", lapply(seq_len(length(collection_list)), function(idx) {
        collection <- collection_list[[idx]]
        data.frame(
            collection_id = factor(idx),
            M = collection[["M"]],
            net_id = factor(collection[["net_id"]]),
            nr = collection[["n"]][[1]],
            nc = collection[["n"]][[2]],
            Qr = collection[["Q"]][[1]],
            Qc = collection[["Q"]][[2]]
        )
    }))
}