In csbl-usp/CEMiTool: Co-expression Modules identification Tool

cat("#", title, "{.tabset}")

Sample clustering

    if(inherits(cem@sample_tree_plot, "grob")){
        grid::grid.draw(cem@sample_tree_plot)   
    }else{
        writeLines("Please create sample tree plot!")
    }

Mean Variance

    if(inherits(cem@mean_var_plot, "gg")){   
        print(cem@mean_var_plot)
    }else{
        writeLines("Please create mean variance plot!")
    }

Quantile-quantile plot

    if(inherits(cem@qq_plot, "gg")){
        print(cem@qq_plot)
    }else{
        writeLines("Please create quantile-quantile plot!")
    }

Expression histogram

    if(inherits(cem@hist_plot, "gg")){
        print(cem@hist_plot)
    }else{
        writeLines("Please create expression histogram!")
    }

Beta x R2 plot

    error_if_s4 <- tryCatch(cem@beta_r2_plot[[1]],
                            error=function(e) e)
    if(inherits(error_if_s4, "error")){
        writeLines("### Please create Beta x R2 plot!")
    }else{
        print(cem@beta_r2_plot[[1]])
    }

Mean connectivity plot

    error_if_s4 <- tryCatch(cem@mean_k_plot[[1]],
                            error=function(e) e)
    if(inherits(error_if_s4, "error")){
        writeLines("### Please create mean connectivity plot!")
    }else{
        print(cem@mean_k_plot[[1]])
    }