R/gnames.fas.R

gnames.fas <-
function(x = NULL)
{
   if(!inherits(x, "fasta")){
   stop("Make sure the data is a fasta object.")}
   if(is.null(x))
   {stop("You have to specify the input data.")}
   result = x[grepl(">", x)]
   result = gsub(">", "", result)
   return(result)
}
helixcn/seqRFLP documentation built on May 17, 2019, 3:37 p.m.