R/load_yaml_files.R

In taxonomicallyinformedannotation/tima-r: Taxonomically Informed Metabolite Annotation

#' @title Load yaml files
#'
#' @description This function load yaml files
#'
#'
#' @include get_default_paths.R
#'
#' @return A list of loaded yaml files
#'
#' @examples NULL
load_yaml_files <- function() {
  log_debug(x = "Loading default params")
  yaml_files <- c(
    list.files(
      path = file.path(get_default_paths()$params$default),
      pattern = ".yaml",
      full.names = TRUE
    ),
    get_default_paths()$params$prepare_params,
    get_default_paths()$params$prepare_params_advanced
  )

  if (length(list.files(get_default_paths()$params$user$path)) >= length(list.files(get_default_paths()$params$default$path))) {
    yaml_files <- c(
      list.files(
        path = file.path(get_default_paths()$params$user),
        pattern = ".yaml",
        full.names = TRUE
      ),
      get_default_paths()$params$prepare_params,
      get_default_paths()$params$prepare_params_advanced
    )
  }

  yaml_names <- yaml_files |>
    gsub(
      pattern = "params/default/",
      replacement = "",
      fixed = TRUE
    ) |>
    gsub(
      pattern = "params/user/",
      replacement = "",
      fixed = TRUE
    ) |>
    gsub(
      pattern = ".yaml",
      replacement = "",
      fixed = TRUE
    )

  yamls_default <- purrr::map(.x = yaml_files, .f = yaml::read_yaml)

  names(yamls_default) <- yaml_names

  yamls_params <- yamls_default

  return(
    list(
      "yamls_params" = yamls_params,
      "yaml_files" = yaml_files,
      "yaml_names" = yaml_names
    )
  )
}