skip some tests for cran

cran-comments.md

@@ -1,5 +1,15 @@
 Re-Submission (September 29, 2023)
 
+Thank you for your feedback. We have adjusted the package to skip the computationally intensive tests during CRAN checks due to the issues observed in one of the operating systems. We would like to kindly request acceptance of the package with this note, as the noted concern is specific to a single OS.
+
+Best regards, 
+Naeem Khoshnevis 
+Research Computing and Data Services 
+Harvard University
+
+
+Re-Submission (September 29, 2023)
+
 Thank you for your feedback and observations. In response, and as part of this revised submission, we have instituted several modifications to address the raised concerns:
 - We have eliminated an additional vignette that required extensive computation.
 - We have relocated several examples to the `\donttest{}` block to avoid their execution during CRAN checks.

tests/testthat/test-check_covar_balance.R

@@ -1,5 +1,5 @@
 test_that("Covariate balance check works as expected", {
-
+skip_on_cran()
 set.seed(532)
 s_data <- generate_syn_data(sample_size = 200,
                             outcome_sd = 10,

tests/testthat/test-estimate_gps.R

@@ -46,7 +46,7 @@ test_that("estimate_gps works as expected.", {
 
 
 test_that("estimate_gps merges data correctly.", {
-
+  skip_on_cran()
   set.seed(895)
   m_d <- generate_syn_data(sample_size = 1000)
   m_d$id <- seq_along(1:nrow(m_d))
@@ -66,7 +66,7 @@ test_that("estimate_gps merges data correctly.", {
 })
 
 test_that("estimate_gps input data should include id column.", {
-
+  skip_on_cran()
   set.seed(895)
   m_d <- generate_syn_data(sample_size = 1000)
   m_d$id <- seq_along(1:nrow(m_d))
@@ -88,7 +88,7 @@ test_that("estimate_gps input data should include id column.", {
 
 
 test_that("estimate_gps residuals works as expected.", {
-
+  skip_on_cran()
   set.seed(895)
   m_d <- generate_syn_data(sample_size = 1000)
   data_with_gps <- estimate_gps(m_d[, c("id", "w")],
@@ -119,7 +119,7 @@ test_that("estimate_gps residuals works as expected.", {
 
 
 test_that("estimate_gps works as expected for non-overlapped ids.", {
-
+  skip_on_cran()
   set.seed(895)
   m_d <- generate_syn_data(sample_size = 1000)
   m_d_2 <- m_d

tests/testthat/test-matching_fn.R

@@ -11,8 +11,7 @@ test_that("matching_l1 functions as expected.", {
   data_with_gps_test <- estimate_gps(s_data[, c("id", "w")],
                                      s_data[, c("id", "cf1", "cf2", "cf3",
                                                 "cf4","cf5", "cf6")],
-                                     sl_lib = c("SL.xgboost","SL.earth",
-                                                "SL.gam","SL.ranger")
+                                     sl_lib = c("SL.xgboost")
                             )
 
   m_d <- data_with_gps_test
@@ -33,6 +32,6 @@ test_that("matching_l1 functions as expected.", {
 
 
 
-   expect_equal(nrow(val), 6)
+   expect_equal(nrow(val), 1)
    expect_equal(length(val), 2)
 })

tests/testthat/test-train_it.R

@@ -13,6 +13,7 @@ test_that("train_it works as expected.", {
 test_that("train_it works as expected (with earth).", {
 
   skip_if_not_installed("earth")
+  skip_on_cran()
 
   x <- seq(0,1,0.001)
   y <- x^2 - x^3 + 4