R/plant_directory_tree.R

In patelm9/projectloggeR: This package creates the tools needed to log data input for provenance.

#' Creates the directory tree
#' @export
#'
plant_directory_tree <-
        function(input_dir_names, output_dir_names) {
                for (i in 1:length(input_dir_names)) {
                        input_dir_tree <- c(input_dir_names[i],
                                            paste0(input_dir_names[i], "/NEW"),
                                            paste0(input_dir_names[i], "/LOADED"))
                        for (j in 1:length(input_dir_tree)) {
                                if (!(dir.exists(input_dir_tree[j]))) {
                                        dir.create(input_dir_tree[j])
                                }
                        }
                }

                for (i in 1:length(output_dir_names)) {
                        if (!(dir.exists(output_dir_names[j]))) {
                                dir.create(output_dir_names[j])
                        }
                }
        }