diff --git a/.Rbuildignore b/.Rbuildignore index aa7059a3b2102a246821ef37d6ddd1d831deb5f0..98316ccfd13a0286857a3ce70b87bc08517f8cb6 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 5e1fe9cb345c92b3329c4edacdd6c35244e88c46..e20ecfa6d1a00ef3579762faa747d9cb61089e76 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 fb31d00bc062368d0aa4ac642a2af2cf276c3168..580bf6e99d436d29ed6ecf7565a7c72a76e99cc2 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 ffce880299e12b7043f5628b4114bdd2206327fe..d47b0f776958d4b3996eaef7dba3877123022a29 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 101bfb592ed5e21a975db603e167123b1b22dd90..80f407b887236ec1f8a1a4171ff2ab0e22b121a1 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 0c1da4ac5dda36b01669bd566efa6d0563fb4e34..5e43067cb538733f502663f62af2aca7eaf415ab 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 f055e96b48853b8f9f79437fcf2004dd7f50f253..49c36da1ad8e5b3ea01371360ebb9ec1e0e9add7 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 58f96a93af392b6ec7a4d3f3021370f4ede5256a..5a816efe66d575dead9a2e896f0cdbf20278b39c 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 7de1471811e0ce838b28368267eb418a5a230a20..ba07d71906b366b47aa26b9c982ebab2e3594731 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 fbc5af0464989ebb977d6ac7c69adde6aa868b4a..922edfbf0970b29dc5b55952a497fa424189a971 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 05d5de6639254346bea59cbfb16466e6f516699a..785070c77517434ab14a450a4a218c55e9b39eb0 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 c2d3e35a65a99110996e19ddc6404c2b0f381747..9c8cc39fb0f3b8bff985d2e66d48c101fb9c39a8 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 25a803f2b158048242a382dd880106181a34cfc8..32a544e353744e6ce91ae5bd7e9751e4f15c0ec3 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 dfa579abd9f4f201e848c446cfe5798151662e48..33d66317792336eec8e3e880f0becb74b000caf9 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 6f218e664a37e1481f08efb18e9f4b50789125a8..07ecd13772210b11e3b61bc8e1a434fc43fc732d 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 bfe44b13727dd6cfa264efc4b5fdf144b3004ee0..0f49a383f944d95eef3e6db41edd0d7946dfd7dd 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 7dfbc2cfc6e3bb9724fa4445b36964aa4359bae4..43651ab4fcad07f3ff65aed2bb4954f706a7e951 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 9cccc2d24694d28fb76c8d853dcb8de96f8ea3e8..ec77c7fad2e8dbd670b906a1ad86091b1d05e4fb 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 fecbd7c05cbe19ca40dd9d4a058495893a49fd44..070ae5312811e90f907ca1ab639b031b3305f319 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 921c3313d5c0d22b0d98344e06463faac6a5ee28..429db5c19bdf04c15c3c8623479613b2b04d31ce 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 d493a87ba41589d96988146d27d24afac3dc9406..995310aa9a664de1697976e5d110a794a52fa9a1 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 7e0264c5a3905d6125c8b326fed548403d56dd03..9c469757c54a208b19a3ff2131eca9279051379a 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 2effede805887d40bef16cb1da1986e9c5eddd79..76ec511da5af2dba25a96e81c67334685c5062b1 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 211c1321ac8865914ea4ecdd51fdce53044629cd..3585576fa3d45093b25cadef33974ef20d66adfc 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 11be10996738dc56baf8fff4c6d248540c3e29e8..d7f5095f92731d44bfd49e1ae057aaad818ffdbc 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 2a2e7358824ca68b3240765e9b106ea0ff41c93c..3a68a53d99e0ab1fad0917f8e23c5bf148404246 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 227383bd17d735bd7ded03c465d12b0a67be4160..aea6f1f40e1ea28f395d8e3625c4e508d0766f72 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 b14326894d512bb2b003d55cf422c6b413d54552..1346dc625173a6e0137b35abf9c748225ac8bcc2 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 e16f2bf4eb647ba103a7b2de612ab3828ab118e0..49cc003b15a88ce561007903d994a9bb606f4a86 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 75f28d43c7e751dc5da5d6bfefce88477adeed85..2ff62788df2cca0780ea12f072e0d91c266f8ea3 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 c87792e972259100dae6ba604aa1851b95a2d3fc..34874842bb80eb4b28c4afea4b550c4c7ef302dd 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 34a766f78653209266c493823d460b2cbe89d842..1cb3b8dca83b54b2190b018a505dcf5daaa3e002 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 0f71f0a0feb28e2cfa6ae7f7a4fcd1b1849c6428..5dfced4d8646209daa0b12154d2970639ee81ca5 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 5e7701ab41f74ccee5350f04ee88ccb140ca3116..c36b29e41d0aa2e18bbecbf17330f335d0a60b4d 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 86ad5e737b30c81668e5b57dbce8f5953a930b66..a47b7072dd4e6f217c98fb33d7b40e6d20e50e20 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 c18d34a241b47843d04ed45a881fa832fb56b786..4185cca67128c8f4a16a3a3e33cf8705ef8e4266 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 1e946d994a38fdfe97c061e02e53d4b2804359fa..8c717b3e5fa102b67b41e93c7e79ff21e42eee10 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 71361d95896f50b465789e7186d43a43bc773be9..3de49a6415ce4d1a76178083d64c44152226976b 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 ea727e5c76b9dba815f6c408cfd91f993d147dc4..501873d78bd03238ea7267a7331b9ae649f22890 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 25efcfc91b22f6126afbac26864461107f3f2f5e..3b8016f60c43109aeedf5f25a5f12880905a3b44 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 87a4416e5edef0b51e2b2f06304e4a2ad4e1f2e4..fadee521bb709fbcf5876e5d97334df621b72d23 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 59d00d4accf229fb7b9086060147b071a029bd70..5f50c49b8b5a179afba4a38fc82d61e99dfa7a96 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 480a3bc64c24c2e74765c289d8179f739602fe40..af8e89fba554832b0071ee0a402344259d503adb 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 e3ff876e4dc2dc3f8e5018652488590f4b601aa2..384bd63d7ab8cd51462c90dbea6328bc3b423420 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 699c01cc145214b33d2aa8198f3f32956c42e03f..8e4d2e1b51af52a7caeaf62abea60cfbe75eaef2 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 0c499d31398189a840eedd0fb5a6f07cafcddba7..f15b3bd2973ab549e28f1a5caf9fcc3357a06184 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 a8290a6860ba659d9576b6d94c4ce61de65db6a6..e21f6c1ac290261327fc57ebc28a60443d220431 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 9b3cc6a6828a40f0f99577486a383a44a730e054..34a33a2cca0fbe856102aca1661fd94dff16d893 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 d7d895e3a3a66e9aff7f3f771c2c299ba1295d94..2aa8e397e10b1eb9857440a0a12383433d71625f 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 16daa79309116ef9502a9fdf9988ea43cbff2995..8d7312b0f45620056d18da9671b41a1844ad3273 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 b70b637cc140c51c37b5e7ab5514df330d5ec85d..f69d551dfcc75073434dfc7cd1bdd931a223ed1c 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 d07388ea13697deebfacacc3d00c9cb72822a1dd..a8df42ba25b3d6d1237d35dc8938b44c53e44dff 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 227f09dea14bca0dfdeb478fd06b541ba2dd416f..6010b6f8d49da9e43ab56acaad67779d67f56cb6 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 95e7c2b88ecdb53f7ddf8d6c0b6f2ce36f57a7d3..3fe48242e9a37185f991e4636471a0178d20b827 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 46b57d84d29f6fe357f9246a241a940257b89076..640b4785ce4ca4c5c784248829ec169b8ff2ddc8 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 1a6288be8d6f98df37326d33a4908253df1cabac..2b5cda037970753f33706714ef296dc7b8e1583c 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