From d81063e1f1129dba7ba221654109cc0921ccfbf3 Mon Sep 17 00:00:00 2001 From: aho 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