Commit 2b5819bd authored by mahendra-mariadassou's avatar mahendra-mariadassou
Browse files

Fix bug leading to errors with FROGS STATS

parent 9c4b612d
......@@ -152,7 +152,7 @@ app_server <- function(input, output, session) {
## revert short OTU names back to original names
dict <- setNames(object = dict$sequence,
nm = dict$OTU)
phyloseq::taxa_names(physeq) <- dict[phyloseq::taxa_names(physeq)]
phyloseq::taxa_names(physeq) <- dict[phyloseq::taxa_names(physeq)] %>% unname()
## Export
phyloseq.extended::write_phyloseq(
physeq = physeq,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment