From d81063e1f1129dba7ba221654109cc0921ccfbf3 Mon Sep 17 00:00:00 2001
From: aho <an.ho@bsc.es>
Date: Tue, 17 Oct 2023 14:28:07 +0200
Subject: [PATCH] Suppress message of all unit tests because testthat edition 3
 shows the messages. Run unit test on GitLab.

---
 .Rbuildignore                                                  | 2 +-
 tests/testthat/test-AddStep-DimNames.R                         | 2 ++
 tests/testthat/test-Compute-CDORemap.R                         | 2 ++
 tests/testthat/test-Compute-NumChunks.R                        | 2 ++
 tests/testthat/test-Compute-chunk_depend_dim.R                 | 2 ++
 tests/testthat/test-Compute-chunk_split_dim.R                  | 2 ++
 tests/testthat/test-Compute-extra_params.R                     | 2 ++
 tests/testthat/test-Compute-inconsistent_target_dim.R          | 2 ++
 tests/testthat/test-Compute-irregular_regrid.R                 | 2 ++
 tests/testthat/test-Compute-timedim.R                          | 2 ++
 tests/testthat/test-Compute-transform_all.R                    | 2 ++
 tests/testthat/test-Compute-transform_indices.R                | 2 ++
 tests/testthat/test-Compute-transform_values.R                 | 2 ++
 tests/testthat/test-Compute-two_data.R                         | 2 ++
 tests/testthat/test-Compute-use_attribute.R                    | 2 ++
 tests/testthat/test-Start-DCPP-across-depends.R                | 2 ++
 tests/testthat/test-Start-calendar.R                           | 2 ++
 tests/testthat/test-Start-depends_values.R                     | 2 ++
 tests/testthat/test-Start-first_file_missing.R                 | 2 ++
 tests/testthat/test-Start-global-lon-across_meridian.R         | 2 ++
 tests/testthat/test-Start-implicit_dependency_by_selector.R    | 2 ++
 tests/testthat/test-Start-implicit_inner_dim.R                 | 2 ++
 tests/testthat/test-Start-indices_list_vector.R                | 2 ++
 tests/testthat/test-Start-largest_dims_length.R                | 2 ++
 tests/testthat/test-Start-line_order-consistency.R             | 2 ++
 tests/testthat/test-Start-metadata_dims.R                      | 2 ++
 tests/testthat/test-Start-metadata_filedim_dependency.R        | 2 ++
 tests/testthat/test-Start-metadata_reshaping.R                 | 2 ++
 tests/testthat/test-Start-multiple-sdates.R                    | 2 ++
 tests/testthat/test-Start-path_glob_permissive.R               | 2 ++
 tests/testthat/test-Start-reorder-lat.R                        | 2 ++
 tests/testthat/test-Start-reorder-latCoarse.R                  | 2 ++
 tests/testthat/test-Start-reorder-lon-180to180.R               | 2 ++
 tests/testthat/test-Start-reorder-lon-transform_-180to180.R    | 2 ++
 tests/testthat/test-Start-reorder-lon-transform_0to360.R       | 2 ++
 tests/testthat/test-Start-reorder-lon-transform_0to360Coarse.R | 2 ++
 tests/testthat/test-Start-reorder-lon0to360.R                  | 2 ++
 tests/testthat/test-Start-reorder-lon0to360Coarse.R            | 2 ++
 tests/testthat/test-Start-reorder-metadata.R                   | 2 ++
 tests/testthat/test-Start-reorder-retrieve.R                   | 2 ++
 tests/testthat/test-Start-reorder_all.R                        | 2 ++
 tests/testthat/test-Start-reorder_indices.R                    | 2 ++
 tests/testthat/test-Start-reshape.R                            | 2 ++
 tests/testthat/test-Start-return_vars_name.R                   | 2 ++
 tests/testthat/test-Start-split-merge.R                        | 2 ++
 tests/testthat/test-Start-time_unit.R                          | 2 ++
 tests/testthat/test-Start-transform-all.R                      | 2 ++
 tests/testthat/test-Start-transform-border.R                   | 2 ++
 tests/testthat/test-Start-transform-lat-Sort-all.R             | 2 ++
 tests/testthat/test-Start-transform-lat-Sort-indices.R         | 2 ++
 tests/testthat/test-Start-transform-lat-Sort-values.R          | 2 ++
 tests/testthat/test-Start-transform-lon-across_meridian.R      | 2 ++
 tests/testthat/test-Start-transform-metadata.R                 | 2 ++
 tests/testthat/test-Start-transform-three-selectors.R          | 2 ++
 tests/testthat/test-Start-two_dats.R                           | 2 ++
 tests/testthat/test-Start-values_list_vector.R                 | 2 ++
 56 files changed, 111 insertions(+), 1 deletion(-)

diff --git a/.Rbuildignore b/.Rbuildignore
index aa7059a..98316cc 100644
--- a/.Rbuildignore
+++ b/.Rbuildignore
@@ -9,7 +9,7 @@
 ^inst/doc$
 ^\.gitlab-ci\.yml$
 ## unit tests should be ignored when building the package for CRAN
-^tests$
+#^tests$
 ^inst/PlotProfiling\.R$
 ^.gitlab$
 # Suggested by http://r-pkgs.had.co.nz/package.html
diff --git a/tests/testthat/test-AddStep-DimNames.R b/tests/testthat/test-AddStep-DimNames.R
index 5e1fe9c..e20ecfa 100644
--- a/tests/testthat/test-AddStep-DimNames.R
+++ b/tests/testthat/test-AddStep-DimNames.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 test_that("Single File - Local execution", {
@@ -28,3 +29,4 @@ suppressWarnings(
                "The target dimensions required by 'step_fun' for the input 1 are not present in the corresponding provided object in 'inputs'.")
   
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Compute-CDORemap.R b/tests/testthat/test-Compute-CDORemap.R
index fb31d00..580bf6e 100644
--- a/tests/testthat/test-Compute-CDORemap.R
+++ b/tests/testthat/test-Compute-CDORemap.R
@@ -1,3 +1,4 @@
+suppressMessages({
 test_that("ex2_3", {
 
   repos <- '/esarchive/exp/ecmwf/system5_m1/monthly_mean/$var$_f6h/$var$_$sdate$.nc'
@@ -54,3 +55,4 @@ tolerance = 0.0001
 ) 
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Compute-NumChunks.R b/tests/testthat/test-Compute-NumChunks.R
index ffce880..d47b0f7 100644
--- a/tests/testthat/test-Compute-NumChunks.R
+++ b/tests/testthat/test-Compute-NumChunks.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 test_that("Single File - Local execution", {
@@ -51,3 +52,4 @@ ignore_attr = TRUE
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Compute-chunk_depend_dim.R b/tests/testthat/test-Compute-chunk_depend_dim.R
index 101bfb5..80f407b 100644
--- a/tests/testthat/test-Compute-chunk_depend_dim.R
+++ b/tests/testthat/test-Compute-chunk_depend_dim.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # This unit test tests the chunking over depended and depending dimension.
 # ex1_14
 # 1. depending dim is values()
@@ -221,3 +222,4 @@ Start(dat = path,
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Compute-chunk_split_dim.R b/tests/testthat/test-Compute-chunk_split_dim.R
index 0c1da4a..5e43067 100644
--- a/tests/testthat/test-Compute-chunk_split_dim.R
+++ b/tests/testthat/test-Compute-chunk_split_dim.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # This unit test is to check chunking over the split dim. It involves 
 # how to arrange the chunks in a correct order even when chunking is happening.
 
@@ -224,3 +225,4 @@ c(longitude = 2, dat = 1, var = 1, latitude = 1, sdate = 4, syear = 2, time = 46
 
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Compute-extra_params.R b/tests/testthat/test-Compute-extra_params.R
index f055e96..49c36da 100644
--- a/tests/testthat/test-Compute-extra_params.R
+++ b/tests/testthat/test-Compute-extra_params.R
@@ -1,3 +1,4 @@
+suppressMessages({
 
 test_that("ex2_6", {
 
@@ -125,3 +126,4 @@ tolerance = 0.0001
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Compute-inconsistent_target_dim.R b/tests/testthat/test-Compute-inconsistent_target_dim.R
index 58f96a9..5a816ef 100644
--- a/tests/testthat/test-Compute-inconsistent_target_dim.R
+++ b/tests/testthat/test-Compute-inconsistent_target_dim.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # If dataset are more than 1 (e.g., exp and obs), ByChunks() checks if 
 # they have consistent dimensions in favor of Apply() computation. However,
 # only margin dimensions need to be identical. Target dimensions can have
@@ -138,3 +139,4 @@ tolerance = 0.0001
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Compute-irregular_regrid.R b/tests/testthat/test-Compute-irregular_regrid.R
index 7de1471..ba07d71 100644
--- a/tests/testthat/test-Compute-irregular_regrid.R
+++ b/tests/testthat/test-Compute-irregular_regrid.R
@@ -1,3 +1,4 @@
+suppressMessages({
 library(s2dv)
 
 test_that("1. ex2_13", {
@@ -73,3 +74,4 @@ tolerance = 0.0001
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Compute-timedim.R b/tests/testthat/test-Compute-timedim.R
index fbc5af0..922edfb 100644
--- a/tests/testthat/test-Compute-timedim.R
+++ b/tests/testthat/test-Compute-timedim.R
@@ -1,3 +1,4 @@
+suppressMessages({
 test_that("ex2_1", {
 
   repos <- '/esarchive/exp/ecmwf/system5_m1/monthly_mean/$var$_f6h/$var$_$sdate$.nc'
@@ -54,3 +55,4 @@ tolerance = 0.0001
 
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Compute-transform_all.R b/tests/testthat/test-Compute-transform_all.R
index 05d5de6..785070c 100644
--- a/tests/testthat/test-Compute-transform_all.R
+++ b/tests/testthat/test-Compute-transform_all.R
@@ -1,3 +1,4 @@
+suppressMessages({
 
 test_that("1. Chunk along non-lat/lon dim", {
 #skip_on_cran()
@@ -119,3 +120,4 @@ res4
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Compute-transform_indices.R b/tests/testthat/test-Compute-transform_indices.R
index c2d3e35..9c8cc39 100644
--- a/tests/testthat/test-Compute-transform_indices.R
+++ b/tests/testthat/test-Compute-transform_indices.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # Using indinces() to assign lat and lon, and transform the data. 
 # Also test transform + chunk along lat/lon.
 
@@ -376,3 +377,4 @@ as.vector(drop(res4$output1))
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Compute-transform_values.R b/tests/testthat/test-Compute-transform_values.R
index 25a803f..32a544e 100644
--- a/tests/testthat/test-Compute-transform_values.R
+++ b/tests/testthat/test-Compute-transform_values.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # Using values() to assign lat and lon, and transform the data. 
 # Also test transform + chunk along lat/lon.
 
@@ -603,3 +604,4 @@ res3_180
 #================================================================
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Compute-two_data.R b/tests/testthat/test-Compute-two_data.R
index dfa579a..33d6631 100644
--- a/tests/testthat/test-Compute-two_data.R
+++ b/tests/testthat/test-Compute-two_data.R
@@ -1,3 +1,4 @@
+suppressMessages({
 test_that("ex2_7", {
 
 # exp data
@@ -81,3 +82,4 @@ tolerance = 0.0001
 
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Compute-use_attribute.R b/tests/testthat/test-Compute-use_attribute.R
index 6f218e6..07ecd13 100644
--- a/tests/testthat/test-Compute-use_attribute.R
+++ b/tests/testthat/test-Compute-use_attribute.R
@@ -1,3 +1,4 @@
+suppressMessages({
 test_that("ex2_2", {
 
   repos <- '/esarchive/exp/ecmwf/system5_m1/monthly_mean/$var$_f6h/$var$_$sdate$.nc'
@@ -53,3 +54,4 @@ tolerance = 0.0001
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-DCPP-across-depends.R b/tests/testthat/test-Start-DCPP-across-depends.R
index bfe44b1..0f49a38 100644
--- a/tests/testthat/test-Start-DCPP-across-depends.R
+++ b/tests/testthat/test-Start-DCPP-across-depends.R
@@ -1,3 +1,4 @@
+suppressMessages({
 test_that("Chunks of DCPP files- Local execution", {
   path <- '/esarchive/exp/CMIP6/dcppA-hindcast/HadGEM3-GC31-MM/DCPP/MOHC/HadGEM3-GC31-MM/dcppA-hindcast/r1i1p1f2/Omon/tos/gn/v20200417/$var$_Omon_HadGEM3-GC31-MM_dcppA-hindcast_s$sdate$-r1i1p1f2_gn_$chunk$.nc'
   path <- paste0('/esarchive/scratch/aho/startR_unittest_files/', path)
@@ -52,3 +53,4 @@ expect_equal(dat[1,1,2,1:12,,], dat_2018_chunk1[1,1,,,])
 
 })
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-calendar.R b/tests/testthat/test-Start-calendar.R
index 7dfbc2c..43651ab 100644
--- a/tests/testthat/test-Start-calendar.R
+++ b/tests/testthat/test-Start-calendar.R
@@ -1,3 +1,4 @@
+suppressMessages({
 
 test_that("1. 360_day, daily, unit = 'days since 1850-01-01'", {
   path_hadgem3 <- paste0('/esarchive/exp/CMIP6/dcppA-hindcast//HadGEM3-GC31-MM/',
@@ -317,3 +318,4 @@ test_that("8. gregorian, 3hrly, unit = 'days since 1850-1-1'", {
 
 })
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-depends_values.R b/tests/testthat/test-Start-depends_values.R
index 9cccc2d..ec77c7f 100644
--- a/tests/testthat/test-Start-depends_values.R
+++ b/tests/testthat/test-Start-depends_values.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # This unit test tests the case that using values() to define the depended
 # and depending dimensions. The depending dimension should be a list with 
 # names that are the values of depended dimensions.
@@ -80,3 +81,4 @@ suppressWarnings(
   )
 })
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-first_file_missing.R b/tests/testthat/test-Start-first_file_missing.R
index fecbd7c..070ae53 100644
--- a/tests/testthat/test-Start-first_file_missing.R
+++ b/tests/testthat/test-Start-first_file_missing.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # When some of the files are missing, Start() still can retrieve the data and 
 # put NA in those missing positions. However, when the first file is missing,
 # Start() returned error before because of failing to find metadata. The bug is
@@ -182,3 +183,4 @@ data <- Start(dat = file,
   )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-global-lon-across_meridian.R b/tests/testthat/test-Start-global-lon-across_meridian.R
index 921c331..429db5c 100644
--- a/tests/testthat/test-Start-global-lon-across_meridian.R
+++ b/tests/testthat/test-Start-global-lon-across_meridian.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 test_that("first test", {
@@ -54,3 +55,4 @@ suppressWarnings(
   )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-implicit_dependency_by_selector.R b/tests/testthat/test-Start-implicit_dependency_by_selector.R
index d493a87..995310a 100644
--- a/tests/testthat/test-Start-implicit_dependency_by_selector.R
+++ b/tests/testthat/test-Start-implicit_dependency_by_selector.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # Similar as usecase ex1_13.
 # Use a value array as the inner dimension selector to express dependency on a 
 # file dimension. By this means, we don't need to specify the *_across parameter
@@ -156,3 +157,4 @@ c(memb = 2, sdate = 3, region = 1)
 
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-implicit_inner_dim.R b/tests/testthat/test-Start-implicit_inner_dim.R
index 7e0264c..9c46975 100644
--- a/tests/testthat/test-Start-implicit_inner_dim.R
+++ b/tests/testthat/test-Start-implicit_inner_dim.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # The unit test is for the implicit inner dimension. If the inner dimension length is 1,
 # startR allows it not to be specified in the call. Users can still define it in 
 # 'return_vars'.
@@ -44,3 +45,4 @@ as.POSIXct('2013-11-15', tz = 'UTC')
 })
 
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-indices_list_vector.R b/tests/testthat/test-Start-indices_list_vector.R
index 2effede..76ec511 100644
--- a/tests/testthat/test-Start-indices_list_vector.R
+++ b/tests/testthat/test-Start-indices_list_vector.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # This unit test tests the consistence between list of indices and vector of indices.
 # 1. transform
 # 2. no transform
@@ -241,3 +242,4 @@ as.vector(exp2)
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-largest_dims_length.R b/tests/testthat/test-Start-largest_dims_length.R
index 211c132..3585576 100644
--- a/tests/testthat/test-Start-largest_dims_length.R
+++ b/tests/testthat/test-Start-largest_dims_length.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # When certain inner dim of files is not consistent, the parameter 'largest_dims_length' can
 # be used to ensure the returned array has the largest length of inner dimensions.
 
@@ -299,3 +300,4 @@ as.vector(data5)[-c(5:24)]
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-line_order-consistency.R b/tests/testthat/test-Start-line_order-consistency.R
index 11be109..d7f5095 100644
--- a/tests/testthat/test-Start-line_order-consistency.R
+++ b/tests/testthat/test-Start-line_order-consistency.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
   variable   <- "tas"
@@ -144,3 +145,4 @@ suppressWarnings(
   )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-metadata_dims.R b/tests/testthat/test-Start-metadata_dims.R
index 2a2e735..3a68a53 100644
--- a/tests/testthat/test-Start-metadata_dims.R
+++ b/tests/testthat/test-Start-metadata_dims.R
@@ -1,3 +1,4 @@
+suppressMessages({
 test_that("1. One data set, one var", {
   repos <- "/esarchive/exp/ecmwf/system5_m1/monthly_mean/$var$_f6h/$var$_$sdate$.nc"
   repos <- paste0('/esarchive/scratch/aho/startR_unittest_files/', repos)
@@ -983,3 +984,4 @@ dataF <- Start(dataset = path_list,
   )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-metadata_filedim_dependency.R b/tests/testthat/test-Start-metadata_filedim_dependency.R
index 227383b..aea6f1f 100644
--- a/tests/testthat/test-Start-metadata_filedim_dependency.R
+++ b/tests/testthat/test-Start-metadata_filedim_dependency.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # When inner dimension selector is an array with filedim dimension name (e.g., time = [sdate = 2, time = 4], 
 # or *_across is used, the inner dim has dependency on file dim. In this case, return_vars must 
 # specify this relationship, i.e., return_vars = list(time = 'sdate').
@@ -197,3 +198,4 @@ expect_equal(
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-metadata_reshaping.R b/tests/testthat/test-Start-metadata_reshaping.R
index b143268..1346dc6 100644
--- a/tests/testthat/test-Start-metadata_reshaping.R
+++ b/tests/testthat/test-Start-metadata_reshaping.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # When data is reshaping (e.g., time_across = 'sdate'), the corresponding attribute should be reshaped too.
 
 test_that("1. time across fyear, fyear depends on sdate", {
@@ -805,3 +806,4 @@ dates
 
 })
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-multiple-sdates.R b/tests/testthat/test-Start-multiple-sdates.R
index e16f2bf..49cc003 100644
--- a/tests/testthat/test-Start-multiple-sdates.R
+++ b/tests/testthat/test-Start-multiple-sdates.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 # When certain values in one observation file are required more than once,
@@ -163,3 +164,4 @@ obs <- Start(dat = obs_path,
   0
   )
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-path_glob_permissive.R b/tests/testthat/test-Start-path_glob_permissive.R
index 75f28d4..2ff6278 100644
--- a/tests/testthat/test-Start-path_glob_permissive.R
+++ b/tests/testthat/test-Start-path_glob_permissive.R
@@ -1,3 +1,4 @@
+suppressMessages({
 test_that("1. expid/member/version", {
 
 years  <- paste0(c(1960:1961), '01-', c(1960:1961), '12')
@@ -159,3 +160,4 @@ list("/esarchive/scratch/aho/startR_unittest_files//esarchive/exp/ecmwf/system4_
 
 })
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-reorder-lat.R b/tests/testthat/test-Start-reorder-lat.R
index c87792e..3487484 100644
--- a/tests/testthat/test-Start-reorder-lat.R
+++ b/tests/testthat/test-Start-reorder-lat.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 #1 selector type	1-values(list)	2-values(vector)  3-indices     4-'all'  5-mix
@@ -1053,3 +1054,4 @@ as.vector(attr(exp1_3, 'Variables')$common$latitude)
 
 })
 ##############################################
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-reorder-latCoarse.R b/tests/testthat/test-Start-reorder-latCoarse.R
index 34a766f..1cb3b8d 100644
--- a/tests/testthat/test-Start-reorder-latCoarse.R
+++ b/tests/testthat/test-Start-reorder-latCoarse.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 #1 selector type	1-values(list)	2-values(vector)  3-indices     4-'all'  5-mix
@@ -887,3 +888,4 @@ res <- Start(dat = list(list(path=path_exp)),
 #
 #})
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-reorder-lon-180to180.R b/tests/testthat/test-Start-reorder-lon-180to180.R
index 0f71f0a..5dfced4 100644
--- a/tests/testthat/test-Start-reorder-lon-180to180.R
+++ b/tests/testthat/test-Start-reorder-lon-180to180.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 #1 selector type        1-values(list)  2-values(vector)  3-indices     4-'all'  5-mix
@@ -817,3 +818,4 @@ res <- Start(dat = list(list(path=path_exp)),
   tolerance = 0.0001
   )
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-reorder-lon-transform_-180to180.R b/tests/testthat/test-Start-reorder-lon-transform_-180to180.R
index 5e7701a..c36b29e 100644
--- a/tests/testthat/test-Start-reorder-lon-transform_-180to180.R
+++ b/tests/testthat/test-Start-reorder-lon-transform_-180to180.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 #1 selector type        1-values(list)  2-values(vector)  3-indices     4-'all'  5-mix
@@ -957,3 +958,4 @@ res <- Start(dat = list(list(path=path_exp)),
   21
   )
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-reorder-lon-transform_0to360.R b/tests/testthat/test-Start-reorder-lon-transform_0to360.R
index 86ad5e7..a47b707 100644
--- a/tests/testthat/test-Start-reorder-lon-transform_0to360.R
+++ b/tests/testthat/test-Start-reorder-lon-transform_0to360.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 #1 selector type        1-values(list)  2-values(vector)  3-indices     4-'all'  5-mix
@@ -1040,3 +1041,4 @@ res <- Start(dat = list(list(path=path_exp)),
   21
   )
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-reorder-lon-transform_0to360Coarse.R b/tests/testthat/test-Start-reorder-lon-transform_0to360Coarse.R
index c18d34a..4185cca 100644
--- a/tests/testthat/test-Start-reorder-lon-transform_0to360Coarse.R
+++ b/tests/testthat/test-Start-reorder-lon-transform_0to360Coarse.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 #1 selector type        1-values(list)  2-values(vector)  3-indices     4-'all'  5-mix
@@ -1045,3 +1046,4 @@ res <- Start(dat = list(list(path=path_exp)),
   21
   )
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-reorder-lon0to360.R b/tests/testthat/test-Start-reorder-lon0to360.R
index 1e946d9..8c717b3 100644
--- a/tests/testthat/test-Start-reorder-lon0to360.R
+++ b/tests/testthat/test-Start-reorder-lon0to360.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 #1 selector type        1-values(list)  2-values(vector)  3-indices     4-'all'  5-mix
@@ -658,3 +659,4 @@ res <- Start(dat = list(list(path=path_exp)),
   tolerance = 0.0001
   )
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-reorder-lon0to360Coarse.R b/tests/testthat/test-Start-reorder-lon0to360Coarse.R
index 71361d9..3de49a6 100644
--- a/tests/testthat/test-Start-reorder-lon0to360Coarse.R
+++ b/tests/testthat/test-Start-reorder-lon0to360Coarse.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 #1 selector type        1-values(list)  2-values(vector)  3-indices     4-'all'  5-mix
@@ -658,3 +659,4 @@ res <- Start(dat = list(list(path=path_exp)),
   tolerance = 0.0001
   )
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-reorder-metadata.R b/tests/testthat/test-Start-reorder-metadata.R
index ea727e5..501873d 100644
--- a/tests/testthat/test-Start-reorder-metadata.R
+++ b/tests/testthat/test-Start-reorder-metadata.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # Ensure returns_vars = NULL or 'dat' have the same metadata
 
 test_that("1. Sort() and CircularSort(0, 360)", {
@@ -277,3 +278,4 @@ res_dat <- Start(dat = list(list(path = path_exp)),
   )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-reorder-retrieve.R b/tests/testthat/test-Start-reorder-retrieve.R
index 25efcfc..3b8016f 100644
--- a/tests/testthat/test-Start-reorder-retrieve.R
+++ b/tests/testthat/test-Start-reorder-retrieve.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 ##############################################
@@ -155,3 +156,4 @@ res2 <- Start(dat = path_exp,
 
 })
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-reorder_all.R b/tests/testthat/test-Start-reorder_all.R
index 87a4416..fadee52 100644
--- a/tests/testthat/test-Start-reorder_all.R
+++ b/tests/testthat/test-Start-reorder_all.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # No transform, test reorder function Sort() and CircularSort() with selector 'all'.
 
 #---------------------------------------------------------------
@@ -143,3 +144,4 @@ tolerance = 0.0001
 
 })
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-reorder_indices.R b/tests/testthat/test-Start-reorder_indices.R
index 59d00d4..5f50c49 100644
--- a/tests/testthat/test-Start-reorder_indices.R
+++ b/tests/testthat/test-Start-reorder_indices.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # No transform, test reorder function Sort() and CircularSort() with selector indices().
 
 #---------------------------------------------------------------
@@ -143,3 +144,4 @@ tolerance = 0.0001
 
 })
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-reshape.R b/tests/testthat/test-Start-reshape.R
index 480a3bc..af8e89f 100644
--- a/tests/testthat/test-Start-reshape.R
+++ b/tests/testthat/test-Start-reshape.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # This one is more comprehensive than test-Start-split-merge.R
 
 path_exp <- '/esarchive/exp/ecmwf/system5c3s/daily_mean/$var$_f6h/$var$_$sdate$.nc'
@@ -515,3 +516,4 @@ easy_array[31:61 ,1]
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-return_vars_name.R b/tests/testthat/test-Start-return_vars_name.R
index e3ff876..384bd63 100644
--- a/tests/testthat/test-Start-return_vars_name.R
+++ b/tests/testthat/test-Start-return_vars_name.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # The name of return_vars should be one of the inner dimension names. The synonims can 
 # be used but will be changed back to the inner dim names. 
 
@@ -237,3 +238,4 @@ c(-19.5, -14.5)
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-split-merge.R b/tests/testthat/test-Start-split-merge.R
index 699c01c..8e4d2e1 100644
--- a/tests/testthat/test-Start-split-merge.R
+++ b/tests/testthat/test-Start-split-merge.R
@@ -1,3 +1,4 @@
+suppressMessages({
 
 var_name <- 'tas'
 path.exp <- '/esarchive/exp/ecmwf/s2s-monthly_ensforhc/daily_mean/$var$_f6h/$sdate$/$var$_$syear$.nc'
@@ -188,3 +189,4 @@ as.POSIXct('2013-11-15', tz = 'UTC')
 
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-time_unit.R b/tests/testthat/test-Start-time_unit.R
index 0c499d3..f15b3bd 100644
--- a/tests/testthat/test-Start-time_unit.R
+++ b/tests/testthat/test-Start-time_unit.R
@@ -1,3 +1,4 @@
+suppressMessages({
 
 test_that("1. The data has units like time", {
 
@@ -88,3 +89,4 @@ as.POSIXct(c("2018-04-08", "2018-04-15", "2018-04-22 UTC", "2018-04-29 UTC"), tz
 #test_that("3. Time dimension is implicit", {
 # See test-Start-implicit_inner_dim.R
 #})
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-transform-all.R b/tests/testthat/test-Start-transform-all.R
index a8290a6..e21f6c1 100644
--- a/tests/testthat/test-Start-transform-all.R
+++ b/tests/testthat/test-Start-transform-all.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # This unit test uses 'all' to do the transformation and tests the output grid.
 # The results should be identical and consistent with cdo result (with precision difference). 
 # The test contains three calls with different target grids: 
@@ -141,3 +142,4 @@ test_that("2. test path 2", {
 
 
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-transform-border.R b/tests/testthat/test-Start-transform-border.R
index 9b3cc6a..34a33a2 100644
--- a/tests/testthat/test-Start-transform-border.R
+++ b/tests/testthat/test-Start-transform-border.R
@@ -1,3 +1,4 @@
+suppressMessages({
 
 ##############################################
 # This unit test checks different border situations: normal regional that doesn't touch the borders,
@@ -712,3 +713,4 @@ expect_equal(
 #  [9,] 299.4723 299.9515 299.4566 299.0601 299.5071
 # [10,] 299.5299 299.7573 299.0317 299.1104 300.0644
 ##############################################
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-transform-lat-Sort-all.R b/tests/testthat/test-Start-transform-lat-Sort-all.R
index d7d895e..2aa8e39 100644
--- a/tests/testthat/test-Start-transform-lat-Sort-all.R
+++ b/tests/testthat/test-Start-transform-lat-Sort-all.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # This unit test uses 'all' to do the transformation and tests "lat_reorder".
 # The results should be identical and consistent with cdo result (with precision difference). 
 # "lon_reorder = CircularSort(0, 360)" are used in all the tests.
@@ -124,3 +125,4 @@ tolerance = 0.0001
 
 })
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-transform-lat-Sort-indices.R b/tests/testthat/test-Start-transform-lat-Sort-indices.R
index 16daa79..8d7312b 100644
--- a/tests/testthat/test-Start-transform-lat-Sort-indices.R
+++ b/tests/testthat/test-Start-transform-lat-Sort-indices.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # This unit test uses indices() to do the transformation and tests "lat_reorder".
 # The results should be identical and consistent with cdo result (with precision difference). 
 # The lat/lon range is all the grids here.
@@ -230,3 +231,4 @@ tolerance = 0.0001
 
 })
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-transform-lat-Sort-values.R b/tests/testthat/test-Start-transform-lat-Sort-values.R
index b70b637..f69d551 100644
--- a/tests/testthat/test-Start-transform-lat-Sort-values.R
+++ b/tests/testthat/test-Start-transform-lat-Sort-values.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # This unit test uses values() to do the transformation and tests "lat_reorder".
 # The results should be identical and consistent with cdo result (with precision difference). 
 # The lon range is all the grids here.
@@ -430,3 +431,4 @@ tolerance = 0.0001
 
 })
 
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-transform-lon-across_meridian.R b/tests/testthat/test-Start-transform-lon-across_meridian.R
index d07388e..a8df42b 100644
--- a/tests/testthat/test-Start-transform-lon-across_meridian.R
+++ b/tests/testthat/test-Start-transform-lon-across_meridian.R
@@ -1,3 +1,4 @@
+suppressMessages({
 #if (identical(Sys.getenv("NOT_CRAN"), "")) Sys.setenv(NOT_CRAN='true')
 
 test_that("first test", {
@@ -80,3 +81,4 @@ suppressWarnings(
   )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-transform-metadata.R b/tests/testthat/test-Start-transform-metadata.R
index 227f09d..6010b6f 100644
--- a/tests/testthat/test-Start-transform-metadata.R
+++ b/tests/testthat/test-Start-transform-metadata.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # Ensure returns_vars = NULL or 'dat' have the same metadata
 
 test_that("1. Sort() and CircularSort(0, 360)", {
@@ -275,3 +276,4 @@ res_dat <- Start(dat = list(list(path = path_exp)),
   )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-transform-three-selectors.R b/tests/testthat/test-Start-transform-three-selectors.R
index 95e7c2b..3fe4824 100644
--- a/tests/testthat/test-Start-transform-three-selectors.R
+++ b/tests/testthat/test-Start-transform-three-selectors.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # This unit test uses three different selector forms: indices(), values(), and 'all', to do 
 # the transformation. "lat_reorder" is also tested.
 # Their results should be all identical and consistent with cdo result (with precision difference). 
@@ -194,3 +195,4 @@ tolerance = 0.0001
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-two_dats.R b/tests/testthat/test-Start-two_dats.R
index 46b57d8..640b478 100644
--- a/tests/testthat/test-Start-two_dats.R
+++ b/tests/testthat/test-Start-two_dats.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # ex1_8
 
 test_that("1. ex1_8, case 1", {
@@ -99,3 +100,4 @@ tolerance = 0.0001
 )
 
 })
+}) #suppressMessages
diff --git a/tests/testthat/test-Start-values_list_vector.R b/tests/testthat/test-Start-values_list_vector.R
index 1a6288b..2b5cda0 100644
--- a/tests/testthat/test-Start-values_list_vector.R
+++ b/tests/testthat/test-Start-values_list_vector.R
@@ -1,3 +1,4 @@
+suppressMessages({
 # This unit test tests the consistence between list of values and vector of values.
 # 1. transform
 # 2. no transform
@@ -246,3 +247,4 @@ as.vector(exp2)
 )
 
 })
+}) #suppressMessages
-- 
GitLab