Commit de08f455 authored by mahendra-mariadassou's avatar mahendra-mariadassou
Browse files

find_level is explicit when the OTU is not ambiguous.

parent 7e6ec620
......@@ -59,6 +59,8 @@ sanitize_physeq_and_affi <- function(physeq, affi) {
)
}
## Other utilities ------------------------------------------
## Order OTU by priority level
sort_ambiguous_otu <- function(physeq, affi) {
affi %>% dplyr::arrange(desc(abundance)) %>% dplyr::pull(OTU)
......@@ -79,4 +81,7 @@ find_level <- function(data) {
rank_content <- data[[rank]]
if (not_consistent(rank_content)) return(rank)
}
warning("The provided taxa is not ambiguous")
NULL
}
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