Fix additional_taxa assignment for datasets with multiple additional taxa

[LLansing]

Assignment of the additional_taxa variable isn't working for datasets where there are multiple additional taxa

main.R