R/do_load_data.R

In olesendan/doutilitiesr: Samling af functioner til R

#' @title
#' do list data i proj

#' @name
#' do_load_data

#' @description
#' dette er en function til liste objekter i projekt

#' @details
#' den lister objekter i projekt, default processed data. kan også list raw data
#
# Some useful keyboard shortcuts for package authoring:
#
#   Build and Reload Package:  'Ctrl + Shift + B'
#   Check Package:             'Ctrl + Shift + E'
#   Test Package:              'Ctrl + Shift + T'


#' @export
do_load_data <- function( .dir = 'processed') {
    c <- 0

    dplyr::case_when(
        .dir == 'processed' ~ 'processed',
        .dir == 'raw' ~ 'raw',
        TRUE ~ "") -> 
        .dir

    paste0( 'data/', .dir) -> 
        .dir

    fs::dir_exists( .dir) -> 
        a

    cat('\n', .dir, '\n', "Does the directory exits? \t", a, "\n")

    if ( a != FALSE) {

    fs::dir_ls(.dir, type = 'file', 
             recurse = TRUE, regexp = ".rds$|.Rds$") -> 
        b
  
    tibble::tibble(path = b, dir_name = fs::path_dir( path), 
                   file_name = fs::path_file( path) ) -> 
        b
  
    print( dplyr::select( b, dir_name, file_name))

    switch(utils::menu(c("Yes", "No"), 
                       title="Load data?", 
                       graphics = FALSE), 1, 0) -> 
        c
#c
}

    if(c == 1) {
        cat("loader data objekter\n")
        purrr::map( b$path, readr::read_rds) ->
    b_dat
    #
    fs::path_ext_remove( fs::path_file( b$path) ) -> b_name
    stringr::str_remove_all( b_name, '^my_') -> b_name

    purrr::map2( b_name, b_dat, assign, envir = .GlobalEnv)
}

}