diff --git a/Master_Script.R b/Master_Script.R index 68062e003881c5607695cbfb6d5171c1bc6555c4..82080bf11e4c4bf9890c5af33c777f29cdb8030c 100644 --- a/Master_Script.R +++ b/Master_Script.R @@ -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")