R/do_setup_proj.R

In olesendan/doutilitiesr: Samling af functioner til R

#' @title
#' do setup proj

#' @name
#' do_setup_proj

#' @description
#' dette er en functioin til at oprette nye projekter

#' @details
#' den skal oprette flere mapper samt
#
# 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_setup_proj <- function() {
  dop <- list( "./data", "./data/raw", "./data/processed",
               "./figures", "./reports", "./results", "./scripts",
               "./scripts/deprecated", "./paper", "./temp"
               )
  dolp <- 1:length(dop)

  for (i in dolp) {
    if  (!dir.exists(dop[[i]])) {dir.create(dop[[i]])}
  }

  if(!fs::file_exists( "./.Rprofile" )) {fs::file_copy( system.file( "files/setup/skeleton", "skeleton.r", package = "doutilitiesr"), "./.Rprofile")}
}