phyloseq object does not work with psadd::plot_krona

[pieterprovoost]

ps <- readRDS("shared/example_results/05-dwca/phyloseq_object.rds")
psadd::plot_krona(ps, output = "test", variable = "eventID")

Error in `[.data.frame`(df, , c("Abundance", variable, rank_names(physeq))): undefined columns selected
Traceback:

1. df[, c("Abundance", variable, rank_names(physeq))]
2. `[.data.frame`(df, , c("Abundance", variable, rank_names(physeq)))
3. stop("undefined columns selected")

The problem goes away when domain is removed from the tax table:

library(dplyr)

tax_table(ps) <- tax_table(ps) |>
    as.data.frame() |>
    select(phylum, class, order, family, genus, species) |>
    as.matrix(rownames.force = T)