Create project architecture

create_project.R

+
+dir_arch <- list(data = list("raw", "processed", "definitions_protocols"),
+                 results = list("raw", "tables", "figures", "reports"),
+                 scripts = "/",
+                 writing = "/")
+
+dir_names <- mapply(function(x, y) file.path(getwd(), x, y), names(dir_arch), dir_arch)
+dir_names <- unlist(dir_names)
+invisible(lapply(dir_names, dir.create, recursive = TRUE))
+
+