R/featureDataDS.R

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

#' @title Retrieve information on features recorded in eSet-derived objects.
#' 
#' @description This function is similar to the Biobase function \code{featureData}.
#' @param x Object, possibly derived from \code{eSet-class}.
#' @return an object containing information on both variable values and variable meta-data.
#' @author Gonzalez, JR.
#'
#' @export
#' 
featureDataDS <- function(x){
  if(inherits(x, "ExpressionSet"))
    return(Biobase::featureData(x))
  else if (inherits(x, c("SummarizedExperiment","RangedSummarizedExperiment")))
    return(colnames(SummarizedExperiment::colData(x)))
  else
    stop("implements the proper method")
}