Update archive name

download_project.R

@@ -32,21 +32,21 @@ if(length(current_files) != 0){
 
 ## Download and unzip project
 url_repo <- paste0("https://git.wageningenur.nl/pps/PPS_data_management/-/archive/",
-                   "master/PPS_data_management-refactor.zip")
+                   "master/PPS_data_management-master.zip")
 download.file(url = url_repo, 
               destfile = file.path(current_wd, "project.zip"))
 unzip("project.zip")
 
 
 ## Copy project file to working directory
-list_files <- list.files("./PPS_data_management-refactor/", 
+list_files <- list.files("./PPS_data_management-master/", 
                          full.names = TRUE)
 file.copy(from = list_files,
           to = "./",
           recursive = TRUE)
 
 ## Get rid of un necessary files 
-unlink(file.path(current_wd, "./PPS_data_management-refactor/"),
+unlink(file.path(current_wd, "./PPS_data_management-master/"),
        recursive = TRUE)
 unlink(c("project.zip", "download_project.R", "README.md"))