I debugged my source code to make it more compatible with the adonis2
trace(ordination, edit = T)
- from: adonis_res <- vegan::adonis(dist ~ Groups, data = meta_table)
- to: adonis_res <- vegan::adonis2(dist ~ Groups, data = meta_table)
trace(plot.ordination, edit = T)
- from: adn_pvalue <- adn_res[[1]][["Pr(>F)"]][1], adn_rsquared <- round(adn_res[[1]][["R2"]][1], 3)
- to: adn_pvalue <- adn_res$"Pr(>F)"[1], adn_rsquared <- round(adn_res$"R2"[1], 3)