R/do_load_func.R

In olesendan/doutilitiesr: Samling af functioner til R

#' Load alle func i projekt
#' @title
#' do load funktioner

#' @name
#' do_load_func

#' @description
#' Denne funktion loader functioner i projekt. Den er hjælpefunction.

#' @details
#' den bruges i do_startup_proj

#' @export
do_load_func <- function( .dir = "R", .prefix = ".f_") {
    
    .dir <- .dir
    .prefix <- .prefix

    fs::dir_exists( .dir) -> 
        a

    if (a != FALSE) {
        fs::dir_ls(here::here( .dir), all=TRUE, regexp = .prefix) %>% 
            tibble::enframe(name = NULL) %>% 
            dplyr::mutate(name = fs::path_file(value)) -> 
            b
        print(dplyr::select(b, name))
        purrr::map(b$value, 
                   .f = source, 
                   local = .GlobalEnv) %>% 
    invisible()

    }
}