From 01358c800a6e49e0bddf44b3d95b2a816cb28c0b Mon Sep 17 00:00:00 2001
From: jr-leary7 <jrleary@live.unc.edu>
Date: Mon, 19 Jun 2023 16:13:14 -0400
Subject: [PATCH] added dependency on R version and updated tests again

---
 DESCRIPTION                  | 3 ++-
 tests/testthat/test_scLANE.R | 9 ++++++---
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index aa49604..55d7f2c 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -13,7 +13,8 @@ LazyData: true
 RoxygenNote: 7.2.1
 Depends: 
   glm2, 
-  magrittr
+  magrittr, 
+  R (>= 3.5.0)
 Imports: 
     geeM,
     MASS,
diff --git a/tests/testthat/test_scLANE.R b/tests/testthat/test_scLANE.R
index dff1e74..2a8c41b 100644
--- a/tests/testthat/test_scLANE.R
+++ b/tests/testthat/test_scLANE.R
@@ -166,9 +166,12 @@ test_that("testDynamic() output", {
   expect_s3_class(glm_gene_stats, "scLANE")
   expect_s3_class(gee_gene_stats, "scLANE")
   expect_s3_class(glmm_gene_stats, "scLANE")
-  expect_equal(length(glm_gene_stats), 10)
-  expect_equal(length(gee_gene_stats), 10)
-  expect_equal(length(glmm_gene_stats), 10)
+  expect_length(glm_gene_stats, 10)
+  expect_length(gee_gene_stats, 10)
+  expect_length(glmm_gene_stats, 10)
+  expect_s3_class(glm_gene_stats$ABCF1$Lineage_A$MARGE_Summary, "data.frame")
+  expect_s3_class(gee_gene_stats$ABCF1$Lineage_A$MARGE_Summary, "data.frame")
+  expect_s3_class(glmm_gene_stats$ABCF1$Lineage_A$MARGE_Summary, "data.frame")
   expect_gt(nrow(glm_gene_stats$ABCF1$Lineage_A$MARGE_Summary), 0)
   expect_gt(nrow(gee_gene_stats$ABCF1$Lineage_A$MARGE_Summary), 0)
   expect_gt(nrow(glmm_gene_stats$ABCF1$Lineage_A$MARGE_Summary), 0)