fix test

Author: egeulgen

R/data_generation.R

@@ -254,7 +254,7 @@ get_reactome_gsets <- function() {
 #' See \code{\link[msigdbr]{msigdbr_show_species}} for all the species available in
 #' the msigdbr package
 #' @param collection collection. i.e., H, C1, C2, C3, C4, C5, C6, C7.
-#' @param subcollection sub-collection, such as CGP, MIR, BP, etc. (default = NULL,
+#' @param subcollection sub-collection, such as CGP, BP, etc. (default = NULL,
 #' i.e. list all gene sets in collection)
 #'
 #' @return Retrieves the MSigDB gene sets and returns a list containing 2 elements: \itemize{

man/get_mgsigdb_gsets.Rd

@@ -2,7 +2,7 @@
 ## Project: pathfindR
 ## Script purpose: Testthat testing script for
 ## data generation functions
-## Date: Jan 12, 2020
+## Date: May 15, 2020
 ## Author: Ege Ulgen
 ##################################################
 
@@ -59,7 +59,7 @@ test_that("`get_reactome_gsets()` works", {
 # get_mgsigdb_gsets -------------------------------------------------------
 test_that("`get_mgsigdb_gsets()` works", {
   expect_silent(hsa_C2_cgp <- pathfindR:::get_mgsigdb_gsets(collection = "C3",
-                                                            subcollection = "MIR"))
+                                                            subcollection = "MIR:MIR_Legacy"))
   expect_length(hsa_C2_cgp, 2)
   expect_true(all(names(hsa_C2_cgp) == c("gene_sets", "descriptions")))
   expect_true(all(names(hsa_C2_cgp[["gene_sets"]] %in% names(hsa_C2_cgp[["descriptions"]]))))