From 3cd8124e0d28e17f231c2df97e2b657b728af826 Mon Sep 17 00:00:00 2001 From: aho Date: Wed, 14 Jul 2021 16:06:10 +0200 Subject: [PATCH 1/2] Fix error of missing 'crop' in transform_params. --- .../test-Start-reorder-lon-transform_-180to180.R | 10 +++++----- .../testthat/test-Start-reorder-lon-transform_0to360.R | 2 -- 2 files changed, 5 insertions(+), 7 deletions(-) diff --git a/tests/testthat/test-Start-reorder-lon-transform_-180to180.R b/tests/testthat/test-Start-reorder-lon-transform_-180to180.R index 218a8a1..14c3d54 100644 --- a/tests/testthat/test-Start-reorder-lon-transform_-180to180.R +++ b/tests/testthat/test-Start-reorder-lon-transform_-180to180.R @@ -33,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 = F), transform_vars = c('longitude', 'latitude'), transform_extra_cells = 2, synonims = list(latitude=c('lat','latitude'), @@ -78,7 +78,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'), @@ -119,7 +119,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'), @@ -160,7 +160,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'), @@ -200,7 +200,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'), diff --git a/tests/testthat/test-Start-reorder-lon-transform_0to360.R b/tests/testthat/test-Start-reorder-lon-transform_0to360.R index 0887615..7841591 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 @@ -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 -- GitLab From af662fb62d3e780f20a4af4718dd0c73016feaf1 Mon Sep 17 00:00:00 2001 From: aho Date: Wed, 14 Jul 2021 17:30:52 +0200 Subject: [PATCH 2/2] Fix error of missing 'crop' in transform_params. Remove skip_on_cran() so the tests can run on pipeline --- tests/testthat/test-AddStep-DimNames.R | 1 - tests/testthat/test-Compute-NumChunks.R | 1 - .../test-Start-global-lon-across_meridian.R | 1 - .../test-Start-line_order-consistency.R | 2 -- tests/testthat/test-Start-multiple-sdates.R | 2 -- tests/testthat/test-Start-reorder-lat.R | 18 ---------- tests/testthat/test-Start-reorder-latCoarse.R | 18 ---------- .../test-Start-reorder-lon-180to180.R | 23 ------------- ...st-Start-reorder-lon-transform_-180to180.R | 21 ------------ .../test-Start-reorder-lon-transform_0to360.R | 32 ++++------------- ...Start-reorder-lon-transform_0to360Coarse.R | 34 ++++--------------- tests/testthat/test-Start-reorder-lon0to360.R | 18 ---------- .../test-Start-reorder-lon0to360Coarse.R | 18 ---------- tests/testthat/test-Start-reorder-retrieve.R | 2 -- ...test-Start-transform-lon-across_meridian.R | 1 - 15 files changed, 12 insertions(+), 180 deletions(-) diff --git a/tests/testthat/test-AddStep-DimNames.R b/tests/testthat/test-AddStep-DimNames.R index 46042f1..2fe6b39 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 507f981..9e626e4 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 0c01db5..34c861f 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 dab0290..6b797a8 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 89c8ed8..d0c4bd3 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 262cf37..e2ef5d9 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 b9d923c..4fc62ad 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 f3c2a3c..aa209b8 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 14c3d54..d8b43ee 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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 7841591..a722bea 100644 --- a/tests/testthat/test-Start-reorder-lon-transform_0to360.R +++ b/tests/testthat/test-Start-reorder-lon-transform_0to360.R @@ -33,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'), @@ -79,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'), @@ -106,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 @@ -121,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'), @@ -149,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 @@ -164,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'), @@ -191,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 @@ -206,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'), @@ -233,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 @@ -248,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'), @@ -277,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 @@ -327,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 @@ -378,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 @@ -429,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 @@ -475,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 @@ -526,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 @@ -572,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 @@ -618,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 @@ -671,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 @@ -721,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 @@ -772,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 @@ -823,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 @@ -870,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 @@ -916,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 @@ -967,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 @@ -1013,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 6d45a67..2a4f2ca 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 20066d4..340860a 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 bb2153e..e093a88 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 09928fd..42a79ce 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 caa2b75..f164046 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' -- GitLab