add data loading for tests; update the example for m_t_graph()

KaiyanM · Nov 24, 2023 · 48edf59 · 48edf59
1 parent bfdbc6a
commit 48edf59
Show file tree

Hide file tree

Showing 9 changed files with 11 additions and 2 deletions.
diff --git a/R/make_the_graph.R b/R/make_the_graph.R
@@ -9,7 +9,7 @@
 #' @source ggraph::ggraph
 #' 
 #' @examples data(test_data)
-#' make_the_graph(test_graphptw, test_network, 0.03, "Muscular System")
+#' make_the_graph(test_graphptw, test_network, 0.03, "Muscular System","kk")
 #' 
 #' @importFrom igraph graph_from_data_frame
 #' @importFrom ggraph ggraph geom_edge_link geom_node_label scale_edge_alpha

diff --git a/data/.DS_Store b/data/.DS_Store
diff --git a/example.R b/example.R
@@ -13,3 +13,8 @@ data("test_data")
 gDashboard(test_data_processed,test_cluster,test_annotations_processed,test_network,
            dashboardtitle = "Test",
            id_colname = c("GO_ID","KEGG_ID"),id_type = c("GO","KEGG"))
+
+
+setwd("/Users/hazelma/Documents/GitHub/MolPad")
+devtools::test()
+devtools::check()
diff --git a/man/make_the_graph.Rd b/man/make_the_graph.Rd
diff --git a/tests/testthat/.DS_Store b/tests/testthat/.DS_Store
diff --git a/tests/testthat/test-gAnnotation.R b/tests/testthat/test-gAnnotation.R
@@ -1,3 +1,4 @@
+data(test_data)
 test_that("dataset 'test_annotations' exists", {
   expect_true(exists('test_annotations'))
 })

diff --git a/tests/testthat/test-gClusters.R b/tests/testthat/test-gClusters.R
@@ -1,3 +1,4 @@
+data(test_data)
 test_that("dataset 'test_data_processed' exists", {
   expect_true(exists('test_data_processed'))
 })

diff --git a/tests/testthat/test-gNetwork.R b/tests/testthat/test-gNetwork.R
@@ -1,3 +1,4 @@
+data(test_data)
 test_that("data 'test_cluster' exists", {
   expect_true(exists('test_cluster'))
 })

diff --git a/tests/testthat/test-pre_process.R b/tests/testthat/test-pre_process.R
@@ -1,3 +1,4 @@
+data(test_data)
 test_that("dataset 'test_data' exists", {
   expect_true(exists('test_data'))
 })