R/volcanoClass.R

In findlaycopley/Volcano: Generates a volcano plot

#' Description
#' @param DGEresults dataframe of differentially expressed genes
#' @param plots List of plots
#' @param sigGenes List of dataframes of different gene groups.
#' @param plotData Data used to generate the plots.
#' @keywords Volcano Plot
#' @export
#' @examples
#' Volcano <- VolcanoPlot()
#'

VolcanoPlot <- setClass("VolcanoPlot",
                         slots = c(DEGresults = "data.frame",
                                   plots="list",
                                   sigGenes = "list",
                                   plotdata="list"))

setMethod("show", "VolcanoPlot", function(object) {
	if (is.ggplot(object@plots$volcano)) {
		print(object@plots$volcano)
		} else {
		cat("This is an object of class Volcano")
	}
})