Mercurial > repos > ecology > vector_template
annotate eml_validate.R @ 1:fe9ba2edc449 draft
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
| author | ecology | 
|---|---|
| date | Fri, 27 Sep 2024 12:56:33 +0000 | 
| parents | |
| children | 
| rev | line source | 
|---|---|
| 
1
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
1 #17/09/2024 | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
2 #Seguineau Pauline | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
3 | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
4 #EML validate | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
5 | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
6 #Load packages | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
7 | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
8 library(emld) | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
9 library(EML) | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
10 | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
11 #Load arguments | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
12 | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
13 args = commandArgs(trailingOnly=TRUE) | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
14 | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
15 if(length(args)>0){ | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
16 eml_file <- args[1] | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
17 }else{ | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
18 | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
19 stop("This tool needs at least one argument.")} | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
20 | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
21 #run eml_validate | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
22 | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
23 eml = read_eml(eml_file) | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
24 | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
25 eml_valid = eml_validate(eml) | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
26 | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
27 if(eml_valid==T){ | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
28 cat("Your EML is valid.") | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
29 }else if(eml_valid==F && length(attr(eml_valid,""))>1){ | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
30 cat("Your EML is not valid. You can improve it by correcting these errors:","\n") | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
31 attr(eml_valid,"") | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
32 }else{ | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
33 cat("Your EML is not valid. You can improve it by correcting this error:","\n") | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
34 attr(eml_valid,"") | 
| 
 
fe9ba2edc449
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 4b040fe7867d965fb88ce70cc08081367b62b063
 
ecology 
parents:  
diff
changeset
 | 
35 } | 
