R/featureNamesDS.R

In isglobal-brge/dsOmics: DataSHIELD server site Omic functions

#' @title Retrieve feature names from eSets.
#' @description This function is similar to the Biobase function \code{featureNames}.
#' @param x Object, possibly derived from eSet-class or AnnotatedDataFrame.
#' @return a caracter vector uniquely identifying each feature
#' @author Gonzalez, JR.
#'
#' @export

featureNamesDS <- function(x){
  if(inherits(x, "ExpressionSet"))
    return(Biobase::featureNames(x))
  else if (inherits(x, c("SummarizedExperiment","RangedSummarizedExperiment")))
    return(dimnames(x)[[1]])
  else
    stop("implements the proper method")
}