R/deprecated/do_start_proj.r

In olesendan/doutilitiesr: Samling af functioner til R

#' @title
#' do starup proj

#' @name
#' do_startup_proj

#' @description
#' dette er en function til indlæse data objecter og prjekt specifikke funktioner

#' @details
#' den indlæser alle data filer i projekter samt specifikke funktioner
#
# 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_startup_proj <- function() {
  #  print(environment())
  tibble::tibble(
    path = fs::dir_ls(
      here::here( "data/processed/"),
      regexp = ".rds$|.Rds$")) ->
    a

  purrr::map( a$path, readr::read_rds) ->
    a_dat

  a$path %>% fs::path_file() %>% fs::path_ext_remove() %>%
    stringr::str_remove_all( ., '^my_') -> a_name

  purrr::map2( a_name, a_dat, assign, envir = .GlobalEnv)


  purrr::map(
    fs::dir_ls( here::here( "./scripts/"),
                regexp = "\\bfunc"),
    .f = source, local = .GlobalEnv) %>% invisible()


}