R/ResultSet-plotIntegration.R

In isglobal-brge/omicRexposome: Exposome and omic data associatin and integration analysis

#' @aliases plotIntegration
#' @rdname plotIntegration-methods
setMethod(
    f = "plotIntegration",
    signature = "ResultSet",
    definition = function(object, cmpX=1, cmpY=2, lb.th=0.20, legend.show=TRUE,
                          colors, ...) {
        if(missing(colors)) {
            colors <- rainbow(length(Biobase::fData(object)))
            names(colors) <- names(Biobase::fData(object))
        } else {
            if(sum(names(Biobase::fData(object)) %in% names(colors)) != length(colors)) {
                stop("Invalid colors given. Colors must be a vector with names",
                     " equal to original list of data-sets.")
            } else {
                colors <- colors[names(Biobase::fData(object))]
            }
        }

        if(MultiDataSet::opt(object)$method == "MultiCCA") {
            .plot_integration_mcca(object, tcolors=colors, lb.th=lb.th,
                                   legend.show=legend.show, ...)
        } else if(MultiDataSet::opt(object)$method == "mcia") {
            .plot_integration_mcia(object,
                                   cmpX=cmpX, cmpY=cmpY, tcolors=colors)
        }
})