Work in progress

DESCRIPTION

@@ -1,7 +1,11 @@
 Package: CopernicusMarine
 Type: Package
 Title: Search Download and Handle Data from Copernicus Marine Service Information
+<<<<<<< work-in-progress
+Version: 0.4.5.0002
+=======
 Version: 0.4.5.0001
+>>>>>>> master
 Authors@R: c(person("Pepijn", "de Vries", role = c("aut", "cre", "dtc"),
     email = "pepijn.devries@outlook.com",
     comment = c(ORCID = "0000-0002-7961-6646")))

NEWS.md

@@ -1,7 +1,8 @@
-CopernicusMarine v0.4.5.0001
+CopernicusMarine v0.4.5.0002
 -------------
 
  * Added more safeguards to vignette to pass CRAN checks
+ * Added more tests
 
 CopernicusMarine v0.4.5
 -------------

tests/testthat/test_subset.r

@@ -146,4 +146,20 @@ test_that("Requests beyond available range produces warning", {
       progress  = FALSE
     )
   }, "'longitude' well beyond available range")
+})
+
+test_that("Subsetting time range can handle udunits", {
+  skip_on_cran()
+  has_account_details()
+  skip_if_offline("data.marine.copernicus.eu")
+  expect_no_error({
+    result <- cms_download_subset(
+      product   = "MEDSEA_MULTIYEAR_PHY_006_004",
+      layer     = "cmems_mod_med_phy-tem_my_4.2km_P1Y-m",
+      variable  = "bottomT",
+      region    = c(xmin = 3, ymin = 42.5, xmax = 7, ymax = 44),
+      timerange = c("1998-01-01", "1999-01-01"),
+      progress  = FALSE
+    )
+  })
 })