updated testing and passing checks

Author: rmflight

.Rbuildignore

@@ -4,11 +4,6 @@
 ^\.Rproj\.user$
 ^\.travis\.yml$
 ^\.push_gh_pages\.sh$
-tests.R
-test_data_gen.R
-test_data.RData
-test_table_data.rds
-test_combine_filter.rda
 ^\.github\workflows\.yml$
 ^\.github$
 ^executable_related$
@@ -27,3 +22,4 @@ test_combine_filter.rda
 ^doc$
 ^docs$
 ^_pkgdown\.yml$
+^examples_test_data$

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: categoryCompare2
-Version: 0.100.25
+Version: 0.100.26
 Title: Meta-Analysis of High-Throughput Experiments Using Feature
         Annotations
 Authors@R: c(
@@ -18,7 +18,7 @@ Depends: R (>= 3.5.0)
 Suggests: knitr, markdown, estrogen, org.Hs.eg.db, hgu95av2.db, limma,
         affy, genefilter, testthat (>= 3.0.0), visNetwork, Cairo,
         DiagrammeR, KEGGREST, docopt (>= 0.7.0), RCy3, hgu95av2cdf,
-        rmarkdown, fgsea
+        rmarkdown, fgsea, data.table, withr
 Imports: Biobase, methods, AnnotationDbi, colorspace, graph, igraph,
         jsonlite, base64enc, dplyr, purrr, rlang, GO.db, stats
 LazyLoad: yes

R/gsea.R

@@ -18,6 +18,7 @@ setClass("gsea_features",
 #' @param min_features the minimum number of features for an annotation (default = 15)
 #' @param max_features the maximum number of features for an annotation (default = 500)
 #' @param return_type  what type of object should be returned? ("cc2" or "fgsea")
+#' @param ... other `fgsea` options
 #' 
 #' @details The runtime is dependent on the maximum size of the provided annotation,
 #'   so the authors of `fgsea` recommend a maximum size of 500. In addition, to calculate
@@ -82,6 +83,9 @@ gsea_feature_enrichment = function(gsea_features,
 #' @return data.table
 enriched_to_fgsea = function(in_enriched)
 {
+  if (!requireNamespace("data.table", quietly = TRUE)) {
+    stop("data.table must be installed!")
+  }
   ranks = in_enriched@ranks
   results = data.table::as.data.table(in_enriched@statistics@statistic_data)
   rename_list = c(pval = "p", padj = "padjust", log2err = "log2err", ES = "es", NES = "nes", size = "size", leadingEdge = "leading_edge")