Nothing
#' Generic method to register data to the epiviz data server
#'
#' @param object The object to register to data server
#' @param columns Name of columns containing data to register
#' @param type leafCounts, if data objects has counts at leaf level
#' or innerNodeCounts, if data object has counts at inner nodes
#' @param ... Additonal arguments passed to object constructors
#' @return An \code{\link{EpivizMetagenomicsData-class}} object
#' @import metagenomeSeq
#' @importMethodsFrom epivizrData register
#'
setMethod("register", "MRexperiment", function(object, type="LeafCounts", columns=NULL, ...) {
if(type == "LeafCounts"){
return(EpivizMetagenomicsData$new(object=object, columns=columns, ...))
} else if(type == "innerNodeCounts") {
return(EpivizMetagenomicsDataInnerNodes$new(object=object, columns=columns, ...))
} else if(type == "TimeSeries"){
return(EpivizMetagenomicsDataTimeSeries$new(object=object, columns=columns, ...))
}
})
#' Generic method to register data to the epiviz data server
#'
#' @param object The object to register to data server
#' @param type leafCounts, if data objects has counts at leaf level
#' or innerNodeCounts, if data object has counts at inner nodes
#' @param ... Additonal arguments passed to object constructors
#' @return An \code{\link{phyloseq-class}} object
#' @import metagenomeSeq
#' @importClassesFrom phyloseq phyloseq
#' @importFrom phyloseq phyloseq_to_metagenomeSeq
#' @importMethodsFrom epivizrData register
#'
setMethod("register", "phyloseq", function(object, type="LeafCounts", ...) {
phy_obj <- phyloseq_to_metagenomeSeq(physeq = object, ...)
if(type == "LeafCounts"){
return(EpivizMetagenomicsData$new(object=phy_obj, ...))
} else if(type == "innerNodeCounts") {
return(EpivizMetagenomicsDataInnerNodes$new(object=phy_obj, ...))
} else if(type == "TimeSeries"){
return(EpivizMetagenomicsDataTimeSeries$new(object=phy_obj, ...))
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.