Mercurial > repos > ecology > taxo_cov_template
annotate taxo_cov_template.R @ 3:a45fa46f8010 draft
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit 43f3c45c97ba7d09ad1ea19df9e953cfe917dde8
author | ecology |
---|---|
date | Mon, 22 Jan 2024 14:56:39 +0000 |
parents | 4cd3d9fdb5f3 |
children |
rev | line source |
---|---|
0
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
1 #28/11/2023 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
2 #Seguineau Pauline |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
3 #Make taxonomic coverage template |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
4 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
5 #Load packages |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
6 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
7 library(EMLassemblyline) |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
8 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
9 #Load arguments |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
10 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
11 args = commandArgs(trailingOnly=TRUE) |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
12 if(length(args)>0){ |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
13 data_taxa <- args[1] |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
14 taxa_table <- args[2] |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
15 taxa_col <- as.numeric(args[3]) |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
16 taxa_name_type <- args[4] |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
17 authority <- as.numeric(args[5]) |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
18 authority2 <- as.numeric(args[6]) |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
19 authority3 <- as.numeric(args[7]) |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
20 empty <- args[8] |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
21 } |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
22 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
23 #transfom arguments |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
24 taxatable = read.table(data_taxa,header=T,sep="\t") |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
25 taxacol = names(taxatable[taxa_col]) |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
26 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
27 if (authority2 == 0 && authority3==0){ |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
28 authority_f = authority} |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
29 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
30 if(authority2 == 0 && authority3 != 0){ |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
31 authority_f = c(authority,authority3)} |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
32 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
33 if (authority2 !=0 && authority3==0){ |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
34 authority_f = c(authority,authority2)} |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
35 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
36 if (authority3 !=0 && authority2 !=0){ |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
37 authority_f = c(authority,authority2,authority3)} |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
38 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
39 if (empty == "false"){ |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
40 empty = FALSE |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
41 }else if (empty=="true"){ |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
42 empty=TRUE} |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
43 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
44 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
45 #Make template |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
46 |
4cd3d9fdb5f3
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/EMLassemblyline commit ea09df299078ff13beda210b36b7edaa6a79c099
ecology
parents:
diff
changeset
|
47 template_taxonomic_coverage(path =".", data.path = "data_files", taxa.table = taxa_table, taxa.col = taxacol, taxa.name.type = taxa_name_type , taxa.authority = authority_f, empty = empty) |