run_aldex enrich_group source code question

[possumhound]

Hi,

first of all thank you for putting all these microbiome functions into a digestible format - it's great!

However, I am a little confused by the source code below in the run_aldex function:

enrich group

cds <- gsub("rab.win.", "", names(ef)[2:3])
ef <- ef$effect
enrich_group <- ifelse(ef > 0, cds[1], cds[2])

should it not be:

enrich_group <- ifelse(ef > 0, cds[2], cds[1]) ?

Maybe I am misunderstanding something but the way it is currently written it contradicts my abundance plots and my ancombc2 results.

Any input would be much appreciated!

Thank you!