#' Find tips from all lineage of complete tree.
#' @param allLin all lineage of tree
#' @return tips lineage
#' @export
Find.tips <- function(allLin){
the.root <- Find.root(allLin)
if(testit::has_warning(Find.root(allLin))==T){
allLin.2 <- allLin
}else{
allLin.2 <- allLin[allLin!=the.root]
}
the.allMother <- allLin.2 %>% substr(1,nchar(.)-1) %>% unique()
the.tips <- dplyr::setdiff(allLin.2,the.allMother)
return(the.tips)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.