Mercurial > repos > ecology > spocc_occ

annotate spocc_occ.R @ 2:c4b091d732e7 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/spocc commit 69bd23adfce0944555888db6712266687276892e
author ecology
date Thu, 08 Jun 2023 08:34:49 +0000
parents eba642eb4465
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
1 #!/usr/bin/Rscript
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
2
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
3 library(spocc)
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
4
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
5
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
6 ##Def functions :
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
7 help<-function(){
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
8 cat("HELP\n")
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
9 cat("Spocc::occ, Search on a single species name, or many. And search across a single or many data sources.\n\n")
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
10 cat("Need 3 args :\n")
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
11 cat(" - query : (character) One to many scientific names.\n")
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
12 cat(" - from : (character) Data source to get data from, any combination of gbif, bison, inat,ebird, ecoengine and/or vertnet.\n")
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
13 cat(" - limit : (numeric) Number of records to return. This is passed across all sources.\n")
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
14 q("no")
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
15 }
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
16
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
17 formatSpName <- function(spName) paste(strsplit(spName, split=' ')[[1]], collapse='_') ###Wallace function
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
18
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
19 ####################################
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
20
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
21 args = commandArgs(trailingOnly=TRUE)
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
22
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
23 #Help display
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
24 if(args[1]=="-h" || args[1]=="--help" || length(args)<3){help()}
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
25
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
26 #Get args
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
27 sname<-args[1]
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
28 dbase_input<-args[2]
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
29 max<-as.integer(args[3])
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
30
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
31 #Get all databases
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
32 bases<-strsplit(dbase_input,",")
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
33 dbase<-c()
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
34 for (base in bases){
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
35 dbase<-c(dbase,base)
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
36 }
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
37
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
38 #Get occurrences
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
39 results <- spocc::occ(query=sname, from=dbase, limit=max, has_coords=TRUE)
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
40
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
41 #Dispay results
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
42 if(length(dbase)==1){
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
43 results_data <- results[[dbase[1]]]$data[[formatSpName(sname)]]
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
44 }else{
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
45 res <- occ2df(results)
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
46 results_data <- res
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
47 }
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
48
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
49 results_data<-as.matrix(results_data)
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
50
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
51 #If empty
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
52 if(length(results_data)==0){cat("\nNo occurrences found.\nLittle tip : Check your input typo, some databases are case sensitive : Genus species.\n")}
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
53
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
54 #Write them
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
55 write.table(file="output.tab",results_data,sep="\t",row.names=FALSE)
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
56
eba642eb4465 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tools/spocc_occ commit e37f100e1c3ea68ade708868f9de3f4c0dd7e720
ecology
parents:
diff changeset
57 q('no')
2
c4b091d732e7 planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/spocc commit 69bd23adfce0944555888db6712266687276892e
ecology
parents: 0
diff changeset
58