Add script to download project

download_project.R

+### Download and unzip project on user's computer
+
+current_wd <- getwd()
+
+url_repo <- paste0("https://git.wageningenur.nl/langu001/PPS_data_management/-/archive/",
+                   "refactor/PPS_data_management-refactor.zip")
+download.file(url = url_repo, 
+              destfile = file.path(current_wd, "project.zip"))
+
+unzip("project.zip")
+
+list_files <- list.files("./PPS_data_management-refactor/", 
+                         full.names = TRUE)
+file.copy(from = list_files,
+          to = "./",
+          recursive = TRUE)
+
+unlink("project.zip")
+unlink(file.path(current_wd, "./PPS_data_management-refactor/"),
+       recursive = TRUE)