From 0cf7c4963dafc823e4bab1e6d5d6bc541dd7bb65 Mon Sep 17 00:00:00 2001
From: aho <an.ho@bsc.es>
Date: Fri, 7 Feb 2020 16:00:50 +0100
Subject: [PATCH] testthat fix for CRAN. Do not use head() in unit test.

---
 tests/testthat/test-Corr.R       | 4 ++--
 tests/testthat/test-RMS.R        | 2 +-
 tests/testthat/test-Regression.R | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/testthat/test-Corr.R b/tests/testthat/test-Corr.R
index d1694f9..ca694e0 100644
--- a/tests/testthat/test-Corr.R
+++ b/tests/testthat/test-Corr.R
@@ -111,7 +111,7 @@ test_that("2. Output checks: dat1", {
     c(n_exp = 2, n_obs = 1, dataset = 1, ftime = 3, lat = 2, lon = 4)
   )
   expect_equal(
-    head(Corr(exp1, obs1)$corr),
+    Corr(exp1, obs1)$corr[1:6],
     c(0.11503859, -0.46959987, -0.64113021, 0.09776572, -0.32393603, 0.27565829), 
     tolerance = 0.001
   )
@@ -150,7 +150,7 @@ test_that("2. Output checks: dat1", {
     3
   )
   expect_equal(
-    head(Corr(exp1, obs1, method = 'spearman')$corr),
+    Corr(exp1, obs1, method = 'spearman')$corr[1:6],
     c(-0.3, -0.4, -0.6, 0.3, -0.3, 0.2)
   )
   expect_equal(
diff --git a/tests/testthat/test-RMS.R b/tests/testthat/test-RMS.R
index 9394d5a..b5a1b99 100644
--- a/tests/testthat/test-RMS.R
+++ b/tests/testthat/test-RMS.R
@@ -103,7 +103,7 @@ test_that("2. Output checks: dat1", {
     c(n_exp = 3, n_obs = 2, ftime = 2, lon = 1, lat = 4)
   )
   expect_equal(
-    head(RMS(exp1, obs1)$rms),
+    RMS(exp1, obs1)$rms[1:6],
     c(1.2815677, 2.0832803, 1.1894637, 1.3000403, 1.4053807, 0.8157563), 
     tolerance = 0.001
   )
diff --git a/tests/testthat/test-Regression.R b/tests/testthat/test-Regression.R
index fd53142..69c4f9e 100644
--- a/tests/testthat/test-Regression.R
+++ b/tests/testthat/test-Regression.R
@@ -105,7 +105,7 @@ test_that("2. Output checks: dat1", {
     c(stats = 2, ftime = 2, lon = 2, lat = 4)
   )
   expect_equal(
-    head(Regression(datay1, datax1)$regression),
+    Regression(datay1, datax1)$regression[1:6],
     c(-39.0091480, 0.7290814, -39.1853129, 0.8623175, -37.4342099, 0.7844530), 
     tolerance = 0.001
   )
-- 
GitLab