R/MetaGenomicNetwork_utility.R

In Fuschi/JAX: What the Package Does (One Line, Title Case)

#----------------------------------#
#'@export
MetaGenomicNetwork$set(which="active",
					   name="data",
					   value=function(){
					   	return(self$metaObj$data)
					   })

#----------------------------------#
#'@export
MetaGenomicNetwork$set(which="active",
					   name="meta",
					   value=function(){
					   	return(self$metaObj$meta)
					   })

#----------------------------------#
#'@export
MetaGenomicNetwork$set(which="active",
					   name="taxa",
					   value=function(){
					   	return(self$metaObj$taxa)
					   })

#----------------------------------#
#'@export
MetaGenomicNetwork$set(which="active",
				name="nsample",
				value=function(){
					return(nrow(self$metaObj$data))
				})

#----------------------------------#
#'@export
MetaGenomicNetwork$set(which="active",
				name="ntaxa",
				value=function(){
					return(ncol(self$metaObj$data))
				})

#----------------------------------#
#'@export
MetaGenomicNetwork$set(which="active",
				name="sample_name",
				value=function(){
					return(rownames(self$metaObj$data))
				})

#----------------------------------#
#'@export
MetaGenomicNetwork$set(which="active",
				name="taxa_name",
				value=function(){
					return(colnames(self$metaObj$data))
				})

#----------------------------------#
#'@export
MetaGenomicNetwork$set(which="active",
				name="ranks",
				value=function(){
					return(colnames(self$metaObj$taxa))
				})

#----------------------------------#
#'@export
MetaGenomicNetwork$set(which="active",
				name="nranks",
				value=function(){
					return(ncol(self$metaObj$taxa))
				})


#----------------------------------#
#'@export
MetaGenomicNetwork$set(which="active",
				name="meta_info",
				value=function(){
					return(colnames(self$metaObj$meta))
				})

#----------------------------------#
#'@export
MetaGenomicNetwork$set(which="active",
				name="mdata",
				value=function(){
					return(as.matrix(self$metaObj$data))
				})

#----------------------------------#
#'@export
MetaGenomicNetwork$set(which="active",
					   name="clr_data",
					   value=function(){
					   	return(self$metaObj$clr_data)
					   })