get_taxa can't handle multiple ecolgroups

[hannahwauchope]

Hi, I've just noticed a wee error in the get_taxa function. On line 73:

output <- do.call(rbind.data.frame, output)

It can't cope when multiple EcolGroups are listed (or multiple anything, but there only seems to be multiple ecol groups).

I've written a fix that just pastes multiple EcolGroups together into one string separated by an underscore (not sure if this is the most helpful for users?), but it works at least:

output <- do.call(rbind, lapply(1:length(output), function(x){
   Spec <- output[[x]]
   Spec$EcolGroups <- paste(Spec$EcolGroups, collapse="_")
   return(rbind.data.frame(Spec))
}))

Cheers, Hannah