From 48edf59290c53ed26f57d46d8e0bc1a76bf8bc3d Mon Sep 17 00:00:00 2001
From: KaiyanM <kaiiyenma@gmail.com>
Date: Fri, 24 Nov 2023 02:25:41 -0600
Subject: [PATCH] add data loading for tests; update the example for
 m_t_graph()

---
 R/make_the_graph.R                |   2 +-
 data/.DS_Store                    | Bin 6148 -> 6148 bytes
 example.R                         |   5 +++++
 man/make_the_graph.Rd             |   2 +-
 tests/testthat/.DS_Store          | Bin 6148 -> 6148 bytes
 tests/testthat/test-gAnnotation.R |   1 +
 tests/testthat/test-gClusters.R   |   1 +
 tests/testthat/test-gNetwork.R    |   1 +
 tests/testthat/test-pre_process.R |   1 +
 9 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/R/make_the_graph.R b/R/make_the_graph.R
index 8f6d0b0..88f3b48 100644
--- 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
index be290407c11b167b5aba4682bdb62467ebf3259e..8c6ce69addb6b28233852c6f735c5f57cdf931ed 100644
GIT binary patch
delta 24
ecmZoMXfc@ZiGzWGVLcG*ZT!Q{zL}NdKR*Cnd<R_s

delta 33
bcmZoMXfc@ZN#H*k*v!bt%D$PM<1aq|jW`v0

diff --git a/example.R b/example.R
index d93ae8d..3fd0ee3 100644
--- 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
index 4227808..ad85695 100644
--- a/man/make_the_graph.Rd
+++ b/man/make_the_graph.Rd
@@ -15,6 +15,6 @@ Generate the graph for the dashboard.
 }
 \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")
 
 }
diff --git a/tests/testthat/.DS_Store b/tests/testthat/.DS_Store
index d550a86986447cbd7b78faf2125bc9a69e22663a..468ca3efcb6703a158385b7c3d5681703d1e1e2f 100644
GIT binary patch
delta 351
zcmZoMXfc=|#>B!ku~2NHo+2a9#(>?7izhHMG4f32VLECkz)-@F%1{g>br}j662Yug
zhIochh9CwX20ex#&z$_^q@4UD1_lNJ1_s8TlMgX%t>=L2N&)IAVMs((#Z(Sd{T~8=
zECvP)^*QN=!O8i#1z=eSfuSZh-^B%LGso6b_LJN@jygijN`pEXYI$yc3J!&+>IyOl
yTUr)el$VpAmkzXuabsaN<7Rdaehy&pZEj@#&ODi4#F2xMfq@C+;>{5vYnTC~EmR=@

delta 70
zcmZoMXfc=|#>B)qu~2NHo+2ab#(>?7jI5J+SdLB>WL>sdj6;xRVnh9Ab`E|HpsLM+
Y9N(EI^NTogFaQA~0|U$E2$40+0ECMWhyVZp

diff --git a/tests/testthat/test-gAnnotation.R b/tests/testthat/test-gAnnotation.R
index 7f7bd4d..cd9e525 100644
--- 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
index 97f7c7d..4e3c202 100644
--- 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
index 58fd775..737da77 100644
--- 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
index c9ffc49..4fa8cd9 100644
--- 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'))
 })