Commit d6f25aa4 authored by Languillaume, Antoine's avatar Languillaume, Antoine
Browse files

Add script to download project

parent 6a29433c
### 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)
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