R/Find-tips.R

In helloicyvodka/ggVITA: An R package for VIsualization and annotation of Tree Alignment.

#' 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)

}