easier to just get a single table

closes #38

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: categoryCompare2
-Version: 0.100.10
+Version: 0.100.11
 Title: Meta-Analysis of High-Throughput Experiments Using Feature
         Annotations
 Author: Robert M. Flight <rflight79@gmail.com>

NAMESPACE

@@ -21,6 +21,7 @@ export(combined_statistics)
 export(csv_annotation_table)
 export(enriched_result)
 export(executable_path)
+export(extract_enrich_stats)
 export(extract_statistics)
 export(filter_annotation_graph)
 export(generate_annotation_graph)
@@ -58,15 +59,26 @@ exportClasses(combined_enrichment)
 exportClasses(hypergeom_features)
 exportClasses(node_assign)
 exportClasses(statistical_results)
+exportMethods(Extract)
+exportMethods(a)
 exportMethods(annotation_combinations)
 exportMethods(combine_annotations)
 exportMethods(combine_enrichments)
+exportMethods(enrich)
+exportMethods(enrichment)
+exportMethods(extract)
 exportMethods(extract_statistics)
+exportMethods(from)
 exportMethods(generate_annotation_graph)
 exportMethods(generate_table)
 exportMethods(get_significant_annotations)
+exportMethods(object.)
 exportMethods(remove_edges)
 exportMethods(show)
+exportMethods(single)
+exportMethods(statistical)
+exportMethods(stats)
+exportMethods(table)
 import(methods)
 importFrom(base64enc,dataURI)
 importFrom(colorspace,desaturate)

R/combine_enrichments.R

@@ -584,3 +584,20 @@ setMethod("extract_statistics", signature = list(in_results = "combined_enrichme
 #' 
 #' @param combined_enrichment a \code{\link{combined_enrichment}} object
 #' @exportMethod
+
+
+#' extract enrich stats
+#' 
+#' Extract statistical table from a single enrichment object.
+#' 
+#' @param enrichment_result the enrichment result object
+#'
+#' @export
+#' @return data.frame
+extract_enrich_stats = function(enrichment_result)
+{
+  stats = as.data.frame(enrichment_result@statistics@statistic_data)
+  stats$ID = enrichment_results@statistics@annotation_id
+  stats$description = enrichment_result@annotation@description[stats$ID]
+  return(stats)
+}