Nothing
catminat<-function(species_list,TRAITS,catminat_df,similar=FALSE){
res<-new("results")
## env<-new.env(parent = parent.frame())
## load(local_Catminat,envir = env)
## catminat_df<-get("catminat_df",envir=env)
if(is.null(TRAITS)){
res@results<-NULL
}else{
if(similar){
DF<-lapply(species_list,function(x){
catminat_df[grep(x,catminat_df$species_name),c("species_name",TRAITS)]
}
)
DF<-ldply(DF)
}else{
DF<-catminat_df[catminat_df$species_name%in%species_list,c("species_name",TRAITS)]
}
## in a few cases (e.g. Alnus viridis) some entries are double-> this causes
## problems -> be sure that all rows are unique
DF<-unique(DF)
row.names(DF)<-DF$species_name
DF<-DF[,TRAITS,drop=FALSE]
res@results<-DF
}
stringa<-"Julve, P., 1998 ff. - Baseflor. Index botanique, \303\251cologique et chorologique de la flore de France. Version : 26 November 2014 . http://perso.wanadoo.fr/philippe.julve/catminat.htm"
Encoding(stringa)<-"unicode"
res@bibliography<-stringa
return(res)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.