R/getLength.R

In seqinr: Biological Sequences Retrieval and Analysis

Defines functions getLength.SeqFrag getLength.qaw getLength.SeqAcnucWeb getLength.SeqFastadna getLength.character getLength.list getLength.default getLength

Documented in getLength getLength.character getLength.default getLength.list getLength.qaw getLength.SeqAcnucWeb getLength.SeqFastadna getLength.SeqFrag

#
# To get the length of sequences
#

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

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

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

getLength.character <- function(object, ...){
  if(length(object) == 1)
  {
    return(length(s2c(object)))
  } 
  else 
  {
    return(sum(nchar(object)))
  }
}

getLength.SeqFastadna <- function(object, ...) length(getSequence(object, as.string = FALSE))
getLength.SeqFastaAA <- getLength.SeqFastadna

getLength.SeqAcnucWeb <- function(object, ...) attr(object, "length")

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

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

getLength.SeqFrag <- function(object, ...) attr(object, "end") - (attr(object, "begin") + 1)

Try the seqinr package in your browser