diff --git a/tests/testthat/test-AddStep-DimNames.R b/tests/testthat/test-AddStep-DimNames.R index 46042f173cc1f3dbe5bb9d66f1d64a8afe515b53..2fe6b3976c570c71356c459d3c3a6ec505ac296b 100644 --- a/tests/testthat/test-AddStep-DimNames.R +++ b/tests/testthat/test-AddStep-DimNames.R @@ -2,7 +2,6 @@ context("Error with bad dimensions tests.") test_that("Single File - Local execution", { -skip_on_cran() suppressWarnings( data <- Start(dataset = '/esarchive/recon/jma/jra55/monthly_mean/$var$_f6h/$var$_$sdate$$month$.nc', var = 'tas', diff --git a/tests/testthat/test-Compute-NumChunks.R b/tests/testthat/test-Compute-NumChunks.R index 507f981f8e0721d955536fb4a8e84b7caf2a16f2..9e626e44fdac8790aecda70c00071fc25f17ab38 100644 --- a/tests/testthat/test-Compute-NumChunks.R +++ b/tests/testthat/test-Compute-NumChunks.R @@ -2,7 +2,6 @@ context("Number of chunks tests.") test_that("Single File - Local execution", { -skip_on_cran() suppressWarnings( data <- Start(dataset = '/esarchive/recon/jma/jra55/monthly_mean/$var$_f6h/$var$_$sdate$$month$.nc', diff --git a/tests/testthat/test-Start-global-lon-across_meridian.R b/tests/testthat/test-Start-global-lon-across_meridian.R index 0c01db52a3ab3e02ce6b6643fc880109a63371f2..34c861f1cb568d9254e582c9a796d50a85dc0d94 100644 --- a/tests/testthat/test-Start-global-lon-across_meridian.R +++ b/tests/testthat/test-Start-global-lon-across_meridian.R @@ -3,7 +3,6 @@ context("Start() across_meridia global lon length check") test_that("first test", { -skip_on_cran() repos <- "/esarchive/exp/ecmwf/system5_m1/monthly_mean/tas_f6h/$var$_$sdate$.nc" var <- 'tas' diff --git a/tests/testthat/test-Start-line_order-consistency.R b/tests/testthat/test-Start-line_order-consistency.R index dab029082413e211754beeada9b868f90658152e..6b797a89ead97863062c2fec52e7e8fce9f4930d 100644 --- a/tests/testthat/test-Start-line_order-consistency.R +++ b/tests/testthat/test-Start-line_order-consistency.R @@ -12,7 +12,6 @@ context("Start() line order consistency check") lons.max <- 360 test_that("1. lon and lat order", { -skip_on_cran() suppressWarnings( dat1 <- Start(dat = obs.path, var = variable, @@ -65,7 +64,6 @@ suppressWarnings( test_that("2. dim length check: with/out reorder", { -skip_on_cran() suppressWarnings( dat1 <- Start(dat = obs.path, var = variable, diff --git a/tests/testthat/test-Start-multiple-sdates.R b/tests/testthat/test-Start-multiple-sdates.R index 89c8ed89e0803931084a14c36d977226ae1472fd..d0c4bd38b55050d51b0c2f25487ed7a168ce5529 100644 --- a/tests/testthat/test-Start-multiple-sdates.R +++ b/tests/testthat/test-Start-multiple-sdates.R @@ -16,7 +16,6 @@ var100_name <- 'windagl100' sdates.seq <- c("20161222","20161229","20170105","20170112") test_that("1. ", { -skip_on_cran() suppressWarnings( hcst <- Start(dat = ecmwf_path_hc, var = var_name, @@ -90,7 +89,6 @@ obs <- Start(dat = obs_path, }) test_that("2. change the file_date order", { -skip_on_cran() suppressWarnings( hcst <- Start(dat = ecmwf_path_hc, var = var_name, diff --git a/tests/testthat/test-Start-reorder-lat.R b/tests/testthat/test-Start-reorder-lat.R index 262cf374e8815dcb04334f3da17568e6ca9e46a4..e2ef5d9d00a99305780d770dbfa43bcf2ff88482 100644 --- a/tests/testthat/test-Start-reorder-lat.R +++ b/tests/testthat/test-Start-reorder-lat.R @@ -18,7 +18,6 @@ path_exp <- '/esarchive/exp/ecmwf/system5_m1/daily_mean/$var$_f6h/$var$_$sdate$. ############################################## test_that("1-1-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -81,7 +80,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-2-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 20 @@ -125,7 +123,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-3-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- -10 @@ -167,7 +164,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-4-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- -20 @@ -210,7 +206,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("2-1-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -273,7 +268,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("2-2-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 20 @@ -315,7 +309,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("2-3-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- -10 @@ -357,7 +350,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("2-4-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- -20 @@ -399,7 +391,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-1-2-3-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -442,7 +433,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("2-1-2-3-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -485,7 +475,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## ############################################## test_that("1-1-2-2-2-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -548,7 +537,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-2-2-2-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 20 @@ -591,7 +579,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-1-2-2-2-3-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -634,7 +621,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("2-1-2-2-2-3-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -690,7 +676,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-1-2-2-1-1-2-3", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -740,7 +725,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-1-2-2-3-1-2-3", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -790,7 +774,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-1-2-2-3-2-2-3", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -841,7 +824,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-1-2-2-3-1-2-1", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 diff --git a/tests/testthat/test-Start-reorder-latCoarse.R b/tests/testthat/test-Start-reorder-latCoarse.R index b9d923cc3e4ba5cfd36c5342c7f30d38aeedf07f..4fc62ad03dbadae5c758a1012eac6e7593f8b8ce 100644 --- a/tests/testthat/test-Start-reorder-latCoarse.R +++ b/tests/testthat/test-Start-reorder-latCoarse.R @@ -20,7 +20,6 @@ path_exp <- '/esarchive/exp/ncar/cesm-dple/monthly_mean/$var$/$var$_$sdate$.nc' ## latitude: -90 o 90 {-90, -89.05759 ...} #192 values ############################################## test_that("1-1-4-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -83,7 +82,6 @@ res <- Start(dat = list(list(path = path_exp)), ############################################## test_that("1-2-4-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 20 @@ -127,7 +125,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-3-4-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- -10 @@ -169,7 +166,6 @@ res <- Start(dat = list(list(path = path_exp)), }) ############################################## test_that("1-4-4-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- -20 @@ -212,7 +208,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("2-1-4-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -276,7 +271,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("2-2-4-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 20 @@ -318,7 +312,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("2-3-4-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- -10 @@ -360,7 +353,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("2-4-4-2-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- -20 @@ -402,7 +394,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-1-4-3-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -446,7 +437,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("2-1-4-3-1-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -489,7 +479,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## ############################################## test_that("1-1-4-2-2-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -552,7 +541,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-4-2-2-1-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 20 @@ -595,7 +583,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-1-4-2-2-3-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -638,7 +625,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("2-1-4-2-2-3-1-x", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -694,7 +680,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-1-4-2-1-1-2-3", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -744,7 +729,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-1-4-2-3-1-2-3", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -794,7 +778,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-1-4-2-3-2-2-3", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 @@ -845,7 +828,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-1-4-2-3-1-2-1", { -skip_on_cran() lons.min <- 40 lons.max <- 45 lats.min <- 10 diff --git a/tests/testthat/test-Start-reorder-lon-180to180.R b/tests/testthat/test-Start-reorder-lon-180to180.R index f3c2a3cbc98fe73fb068d820fd09855993a7599d..aa209b8353300d849203c37594e5671fec76b1e9 100644 --- a/tests/testthat/test-Start-reorder-lon-180to180.R +++ b/tests/testthat/test-Start-reorder-lon-180to180.R @@ -20,7 +20,6 @@ sdate <- '199212' ############################################## test_that("1-1-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -61,7 +60,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-2-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -93,7 +91,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-3-2-2-1-1-1-x", { -skip_on_cran() lons.min <- -10 lons.max <- -20 lats.min <- 10 @@ -125,7 +122,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-4-2-2-1-1-1-x", { -skip_on_cran() lons.min <- -20 lons.max <- -10 lats.min <- 10 @@ -157,7 +153,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-5-2-2-1-1-1-x", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -190,7 +185,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-6-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 10 lons.max <- -10 lats.min <- 10 @@ -222,7 +216,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-8-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 170 lons.max <- 190 lats.min <- 10 @@ -255,7 +248,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## ############################################## test_that("1-1-2-2-2-2-1-x", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -296,7 +288,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-1-2-2-2-3-1-x", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -333,7 +324,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-2-2-2-2-1-x", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -370,7 +360,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-2-2-2-3-1-x", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -408,7 +397,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-3-2-2-2-2-1-x", { -skip_on_cran() lons.min <- -10 lons.max <- -20 lats.min <- 10 @@ -446,7 +434,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-3-2-2-2-3-1-x", { -skip_on_cran() lons.min <- -10 lons.max <- -20 lats.min <- 10 @@ -479,7 +466,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-4-2-2-2-2-1-x", { -skip_on_cran() lons.min <- -20 lons.max <- -10 lats.min <- 10 @@ -512,7 +498,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-4-2-2-2-3-1-x", { -skip_on_cran() lons.min <- -20 lons.max <- -10 lats.min <- 10 @@ -545,7 +530,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-5-2-2-2-2-1-x", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -588,7 +572,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-5-2-2-2-3-1-x", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -621,7 +604,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-6-2-2-2-2-1-x", { -skip_on_cran() lons.min <- 20 lons.max <- -10 lats.min <- 10 @@ -659,7 +641,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-6-2-2-2-3-1-x", { -skip_on_cran() lons.min <- 20 lons.max <- -10 lats.min <- 10 @@ -701,7 +682,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-7-2-2-2-2-1-x", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -735,7 +715,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-7-2-2-2-3-1-x", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -774,7 +753,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-8-2-2-2-2-1-x", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 @@ -808,7 +786,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-8-2-2-2-3-1-x", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 diff --git a/tests/testthat/test-Start-reorder-lon-transform_-180to180.R b/tests/testthat/test-Start-reorder-lon-transform_-180to180.R index 218a8a12375b78f26aad16c1b07526bf4ab644f7..d8b43ee9f59e8a2c500b4841fc67d6993db2b442 100644 --- a/tests/testthat/test-Start-reorder-lon-transform_-180to180.R +++ b/tests/testthat/test-Start-reorder-lon-transform_-180to180.R @@ -19,7 +19,6 @@ sdate <- '199212' ############################################## test_that("1-1-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -33,7 +32,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = F), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -64,7 +63,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-2-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -78,7 +76,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = F), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -105,7 +103,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-5-2-2-1-1-2-4", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -119,7 +116,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -146,7 +143,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-6-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 10 lons.max <- -10 lats.min <- 10 @@ -160,7 +156,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -186,7 +182,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-8-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 170 lons.max <- 190 lats.min <- 10 @@ -200,7 +195,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -228,7 +223,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## ############################################## test_that("1-1-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -277,7 +271,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -326,7 +319,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-3-2-2-2-2-2-3", { -skip_on_cran() lons.min <- -10 lons.max <- -20 lats.min <- 10 @@ -375,7 +367,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-4-2-2-2-2-2-3", { -skip_on_cran() lons.min <- -20 lons.max <- -10 lats.min <- 10 @@ -419,7 +410,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-5-2-2-2-2-2-3", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -468,7 +458,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-6-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 20 lons.max <- -10 lats.min <- 10 @@ -512,7 +501,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-7-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -556,7 +544,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-8-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 @@ -608,7 +595,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## ############################################## test_that("1-1-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -656,7 +642,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -705,7 +690,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-3-2-2-2-3-2-3", { -skip_on_cran() lons.min <- -10 lons.max <- -20 lats.min <- 10 @@ -754,7 +738,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-4-2-2-2-3-2-3", { -skip_on_cran() lons.min <- -20 lons.max <- -10 lats.min <- 10 @@ -799,7 +782,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-5-2-2-2-3-2-3", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -843,7 +825,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-6-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 20 lons.max <- -10 lats.min <- 10 @@ -892,7 +873,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-7-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -936,7 +916,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-8-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 diff --git a/tests/testthat/test-Start-reorder-lon-transform_0to360.R b/tests/testthat/test-Start-reorder-lon-transform_0to360.R index 0887615d5319fcf2c26fc23ea4efb376368913ad..a722bea88af4600845894914bea273a630de9b17 100644 --- a/tests/testthat/test-Start-reorder-lon-transform_0to360.R +++ b/tests/testthat/test-Start-reorder-lon-transform_0to360.R @@ -19,7 +19,6 @@ sdate <- '19821201' ############################################## test_that("1-1-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -34,7 +33,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -66,7 +65,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-2-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -81,7 +79,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -108,7 +106,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-5-2-2-1-1-2-4", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -123,7 +120,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -151,7 +148,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-6-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 10 lons.max <- -10 lats.min <- 10 @@ -166,7 +162,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -193,7 +189,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-7-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -208,7 +203,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -235,7 +230,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-8-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 @@ -250,7 +244,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -279,7 +273,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## ############################################## test_that("1-1-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -329,7 +322,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -380,7 +372,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-3-2-2-2-2-2-3", { -skip_on_cran() lons.min <- -10 lons.max <- -20 lats.min <- 10 @@ -431,7 +422,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-4-2-2-2-2-2-3", { -skip_on_cran() lons.min <- -20 lons.max <- -10 lats.min <- 10 @@ -477,7 +467,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-5-2-2-2-2-2-3", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -528,7 +517,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-6-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 20 lons.max <- -10 lats.min <- 10 @@ -574,7 +562,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-7-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -620,7 +607,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-8-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 @@ -673,7 +659,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## ############################################## test_that("1-1-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -723,7 +708,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -774,7 +758,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-3-2-2-2-3-2-3", { -skip_on_cran() lons.min <- -10 lons.max <- -20 lats.min <- 10 @@ -825,7 +808,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-4-2-2-2-3-2-3", { -skip_on_cran() lons.min <- -20 lons.max <- -10 lats.min <- 10 @@ -872,7 +854,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-5-2-2-2-3-2-3", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -918,7 +899,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-6-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 20 lons.max <- -10 lats.min <- 10 @@ -969,7 +949,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-7-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -1015,7 +994,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-8-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 diff --git a/tests/testthat/test-Start-reorder-lon-transform_0to360Coarse.R b/tests/testthat/test-Start-reorder-lon-transform_0to360Coarse.R index 6d45a67fec078bcf4b15a7bcff86e19d24a11641..2a4f2ca6cd01fb6f464c6d05683d57e3b58eb09d 100644 --- a/tests/testthat/test-Start-reorder-lon-transform_0to360Coarse.R +++ b/tests/testthat/test-Start-reorder-lon-transform_0to360Coarse.R @@ -23,7 +23,6 @@ sdate <- '20001101' ############################################## test_that("1-1-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -38,7 +37,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -70,7 +69,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-2-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -85,7 +83,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -112,7 +110,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-5-2-2-1-1-2-4", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -127,7 +124,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -155,7 +152,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-6-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 10 lons.max <- -10 lats.min <- 10 @@ -170,7 +166,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -197,7 +193,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-7-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -212,7 +207,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -239,7 +234,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-8-2-2-1-1-2-4", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 @@ -254,7 +248,7 @@ res <- Start(dat = list(list(path=path_exp)), longitude = values(list(lons.min, lons.max)), transform = CDORemapper, transform_params = list(grid ='r360x181', - method = 'con'), + method = 'con', crop = T), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -283,7 +277,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## ############################################## test_that("1-1-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -334,7 +327,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -385,7 +377,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-3-2-2-2-2-2-3", { -skip_on_cran() lons.min <- -10 lons.max <- -20 lats.min <- 10 @@ -436,7 +427,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-4-2-2-2-2-2-3", { -skip_on_cran() lons.min <- -20 lons.max <- -10 lats.min <- 10 @@ -482,7 +472,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-5-2-2-2-2-2-3", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -534,7 +523,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-6-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 20 lons.max <- -10 lats.min <- 10 @@ -581,7 +569,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-7-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -627,7 +614,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-8-2-2-2-2-2-3", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 @@ -680,7 +666,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## ############################################## test_that("1-1-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -730,7 +715,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -781,7 +765,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-3-2-2-2-3-2-3", { -skip_on_cran() lons.min <- -10 lons.max <- -20 lats.min <- 10 @@ -832,7 +815,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-4-2-2-2-3-2-3", { -skip_on_cran() lons.min <- -20 lons.max <- -10 lats.min <- 10 @@ -879,7 +861,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-5-2-2-2-3-2-3", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -925,7 +906,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-6-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 20 lons.max <- -10 lats.min <- 10 @@ -976,7 +956,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-7-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -1022,7 +1001,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-8-2-2-2-3-2-3", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 diff --git a/tests/testthat/test-Start-reorder-lon0to360.R b/tests/testthat/test-Start-reorder-lon0to360.R index 20066d405230e9c5f8492b4c64b4e1d48c4d5f57..340860aa8f3a9d47fbbb974a741eb368aa2cdd9c 100644 --- a/tests/testthat/test-Start-reorder-lon0to360.R +++ b/tests/testthat/test-Start-reorder-lon0to360.R @@ -18,7 +18,6 @@ path_exp <- '/esarchive/exp/ecmwf/system5_m1/daily_mean/$var$_f6h/$var$_$sdate$. ############################################## test_that("1-1-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -61,7 +60,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-2-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -94,7 +92,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-5-2-2-1-1-1-x", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -129,7 +126,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-6-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 10 lons.max <- -10 lats.min <- 10 @@ -163,7 +159,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-7-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -196,7 +191,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-8-2-2-1-1-1-x", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 @@ -231,7 +225,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## ############################################## test_that("1-1-2-2-2-2-1-x", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -274,7 +267,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-1-2-2-2-3-1-x", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -313,7 +305,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-2-2-2-2-1-x", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -352,7 +343,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-2-2-2-3-1-x", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -392,7 +382,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-3-2-2-2-2-1-x", { -skip_on_cran() lons.min <- -10 lons.max <- -20 lats.min <- 10 @@ -432,7 +421,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-3-2-2-2-3-1-x", { -skip_on_cran() lons.min <- -10 lons.max <- -20 lats.min <- 10 @@ -467,7 +455,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-4-2-2-2-2-1-x", { -skip_on_cran() lons.min <- -20 lons.max <- -10 lats.min <- 10 @@ -502,7 +489,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-4-2-2-2-3-1-x", { -skip_on_cran() lons.min <- -20 lons.max <- -10 lats.min <- 10 @@ -538,7 +524,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-5-2-2-2-2-1-x", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -569,7 +554,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-5-2-2-2-3-1-x", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -605,7 +589,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-6-2-2-2-2-1-x", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 @@ -641,7 +624,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-6-2-2-2-3-1-x", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 diff --git a/tests/testthat/test-Start-reorder-lon0to360Coarse.R b/tests/testthat/test-Start-reorder-lon0to360Coarse.R index bb2153e90705d10def4c3327ce0d17b807cae8e6..e093a8870cd2640057c2cb025d730488cc9295af 100644 --- a/tests/testthat/test-Start-reorder-lon0to360Coarse.R +++ b/tests/testthat/test-Start-reorder-lon0to360Coarse.R @@ -18,7 +18,6 @@ path_exp <- '/esarchive/exp/ncar/cesm-dple/monthly_mean/$var$/$var$_$sdate$.nc' ## latitude: -90 o 90 {-90, -89.05759 ...} #192 values ############################################## test_that("1-1-4-2-1-1-1-x", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -62,7 +61,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-2-4-2-1-1-1-x", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -95,7 +93,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-5-4-2-1-1-1-x", { -skip_on_cran() lons.min <- -10 lons.max <- 10 lats.min <- 10 @@ -130,7 +127,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-6-4-2-1-1-1-x", { -skip_on_cran() lons.min <- 10 lons.max <- -10 lats.min <- 10 @@ -164,7 +160,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-7-4-2-1-1-1-x", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -197,7 +192,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-8-4-2-1-1-1-x", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 @@ -232,7 +226,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## ############################################## test_that("1-1-4-2-2-2-1-x", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -275,7 +268,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-1-4-2-2-3-1-x", { -skip_on_cran() lons.min <- 10 lons.max <- 20 lats.min <- 10 @@ -314,7 +306,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-4-2-2-2-1-x", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -353,7 +344,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-2-4-2-2-3-1-x", { -skip_on_cran() lons.min <- 20 lons.max <- 10 lats.min <- 10 @@ -393,7 +383,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-3-4-2-2-2-1-x", { -skip_on_cran() lons.min <- -10 lons.max <- -20 lats.min <- 10 @@ -433,7 +422,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-3-4-2-2-3-1-x", { -skip_on_cran() lons.min <- -10 lons.max <- -20 lats.min <- 10 @@ -468,7 +456,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-4-4-2-2-2-1-x", { -skip_on_cran() lons.min <- -20 lons.max <- -10 lats.min <- 10 @@ -503,7 +490,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-4-4-2-2-3-1-x", { -skip_on_cran() lons.min <- -20 lons.max <- -10 lats.min <- 10 @@ -539,7 +525,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-5-4-2-2-2-1-x", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -570,7 +555,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-5-4-2-2-3-1-x", { -skip_on_cran() lons.min <- 330 lons.max <- 350 lats.min <- 10 @@ -606,7 +590,6 @@ res <- Start(dat = list(list(path=path_exp)), ############################################## test_that("1-6-4-2-2-2-1-x", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 @@ -642,7 +625,6 @@ res <- Start(dat = list(list(path=path_exp)), }) ############################################## test_that("1-6-4-2-2-3-1-x", { -skip_on_cran() lons.min <- 350 lons.max <- 370 lats.min <- 10 diff --git a/tests/testthat/test-Start-reorder-retrieve.R b/tests/testthat/test-Start-reorder-retrieve.R index 09928fd3c3d9a077ac5e7c96a1ab95cc9a1330ba..42a79ce343a0dad629e0b6a5f1577cc98ad03e47 100644 --- a/tests/testthat/test-Start-reorder-retrieve.R +++ b/tests/testthat/test-Start-reorder-retrieve.R @@ -5,7 +5,6 @@ context("Start() lon Reorder non-transform retrieve test") ############################################## test_that("original range 0to360", { -skip_on_cran() ## Origin longitude in file: [0:359.722222222222] path_exp <- '/esarchive/exp/ecmwf/system5_m1/daily_mean/$var$_f6h/$var$_$sdate$.nc' @@ -85,7 +84,6 @@ res2 <- Start(dat = path_exp, ############################################## test_that("original range -180to180", { -skip_on_cran() ## Origin longitude in file: [0:359.722222222222] path_exp <- '/esarchive/recon/ecmwf/era5/original_files/reorder/daily_mean/$var$/$var$_$sdate$.nc' variable <- 'tas' diff --git a/tests/testthat/test-Start-transform-lon-across_meridian.R b/tests/testthat/test-Start-transform-lon-across_meridian.R index caa2b75e3bae6b8769e23b27013c4b3a2fec872c..f16404671bb44b0080c851f27b7388e55eeb1595 100644 --- a/tests/testthat/test-Start-transform-lon-across_meridian.R +++ b/tests/testthat/test-Start-transform-lon-across_meridian.R @@ -3,7 +3,6 @@ context("Start() transform across_meridian lon order check") test_that("first test", { -skip_on_cran() repos <- "/esarchive/exp/ecmwf/system5_m1/monthly_mean/tas_f6h/$var$_$sdate$.nc" var <- 'tas'