Improve function count_taxa() allowing count of multiple taxon ranks at once.

The following command is causing an error message in vegtable:

Kenya_veg <- count_taxa(species + genus + family ~ ReleveID, data = Kenya_veg)

Eventually this issue has to be solved at taxlist code.