R/getName.R

In seqinr: Biological Sequences Retrieval and Analysis

Defines functions getName.SeqFrag getName.qaw getName.SeqAcnucWeb getName.SeqFastadna getName.list getName.default getName

Documented in getName getName.default getName.list getName.qaw getName.SeqAcnucWeb getName.SeqFastadna getName.SeqFrag

#
# To get sequence names
#

getName <-  function(object, ...)  UseMethod("getName")

getName.default <- function(object, ...)
  stop(paste("no getName method for objects of class:", class(object)))

getName.list <- function(object, ...)
  sapply(seq_len(length(object)), function(i) getName(object[[i]], ...))

getName.SeqFastadna <- function(object, ...) attr(object,"name")
getName.SeqFastaAA <- getName.SeqFastadna

getName.SeqAcnucWeb <- function(object, ...) as.character(object)

getName.qaw <- function(object, ...) getName(object$req, ...)

getName.logical <- function (object, ...) object # so that NA is returned for virtual lists

getName.SeqFrag <- function(object, ...) attr(object, "seqMother")

Try the seqinr package in your browser