Commit 3baf1620 authored by Languillaume, Antoine's avatar Languillaume, Antoine
Browse files

Update archive name

parent 2ad7e4ef
......@@ -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"))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment