Skip to content
Snippets Groups Projects
Commit 8aef9628 authored by Languillaume, Antoine's avatar Languillaume, Antoine
Browse files

Use curl as download method

parent f425eef5
Branches near-real-time
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 10 additions and 10 deletions
Master_Script.R
+ 10
− 10
View file @ 8aef9628
......@@ -30,16 +30,16 @@ setwd(wd)
##download files if not present
file.list.wd.initial= list.files(wd)
if(sum(grepl("example_data", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/example_data.csv", destfile="example_data.csv")
if(sum(grepl("Documentation", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/Documentation.docx?inline=false","Documentation.docx")
if(sum(grepl("Documentation", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/Documentation.pdf?inline=false","Documentation.pdf")
if(sum(grepl("Readme", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/README.txt","README.txt")
if(sum(grepl("0_build_project", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/0_build_project.R", destfile="0_build_project.R")
if(sum(grepl("1_data_cleaning", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/1_data_cleaning.R", destfile="1_data_cleaning.R")
if(sum(grepl("2_analysis.R", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/2_analysis.R", destfile="2_analysis.R")
if(sum(grepl("MiRAE_funcs", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/MiRAE_funcs.R", destfile="MiRAE_funcs.R")
if(sum(grepl("RawDataConvertScript", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/RawDataConvertScript.R", destfile="RawDataConvertScript.R")
if(sum(grepl("Meststof proef WUR.csv", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/Meststof%20proef%20WUR.csv", destfile="Meststof proef WUR.csv")
if(sum(grepl("example_data", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/example_data.csv", destfile="example_data.csv", method = "curl")
if(sum(grepl("Documentation", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/Documentation.docx?inline=false","Documentation.docx", method = "curl")
if(sum(grepl("Documentation", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/Documentation.pdf?inline=false","Documentation.pdf", method = "curl")
if(sum(grepl("Readme", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/README.txt","README.txt", method = "curl")
if(sum(grepl("0_build_project", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/0_build_project.R", destfile="0_build_project.R", method = "curl")
if(sum(grepl("1_data_cleaning", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/1_data_cleaning.R", destfile="1_data_cleaning.R", method = "curl")
if(sum(grepl("2_analysis.R", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/2_analysis.R", destfile="2_analysis.R", method = "curl")
if(sum(grepl("MiRAE_funcs", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/MiRAE_funcs.R", destfile="MiRAE_funcs.R", method = "curl")
if(sum(grepl("RawDataConvertScript", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/RawDataConvertScript.R", destfile="RawDataConvertScript.R", method = "curl")
if(sum(grepl("Meststof proef WUR.csv", file.list.wd.initial))==0) download.file("https://git.wur.nl/langu001/PPS_data_management/-/raw/master/Meststof%20proef%20WUR.csv", destfile="Meststof proef WUR.csv", method = "curl")
#if(sum(grepl("Meststof proef WUR_metadata.xlsx", file.list.wd.initial))==0 download.file("https://github.com/ALanguillaume/MiRAE/blob/master/data/raw/Meststof%20proef%20WUR_metadata.xlsx?raw=true", destfile="Meststof proef WUR_metadata.xlsx")
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment