fix time_since_melt

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: raadtools
 Type: Package
 Title: Tools for Synoptic Environmental Spatial Data
-Version: 0.7.0
+Version: 0.7.0.2
 Authors@R: c(
    person("Michael D.","Sumner", role = c("aut", "cre"), email = "[email protected]"), 
    person("Ben", "Raymond", role = "ctb", email = "[email protected]")
@@ -46,5 +46,5 @@ BugReports: https://github.com/AustralianAntarcticDivision/raadtools/issues
 Description: Tools for reading, plotting and manipulating spatial data,
     particularly from remote sensing and model output.
 License: GPL-3
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 Remotes: AustralianAntarcticDivision/raadfiles

NEWS.md

@@ -6,7 +6,7 @@
 
 * `readtopo()` now defaults to GEBCO 2023. 
 
-* Replace old form of time_since_melt with fancy new duckdb process. 
+* Replace old form of time_since_melt with fancy new duckdb process and checked it's working with extract().  
 
 * Fixed matching files bug for 8 day intervals. 
 

R/deriv.R

@@ -119,8 +119,14 @@ readderivice <- function(date,
 
   date <- timedateFrom(date)
   files <- .processFiles(date, files, time.resolution)
-
-  out <- raster::stack(lapply(files$date, calc_time_since_melt, trx = cfiles0))
+
+  ## doesn't matter which file for "time_since_melt"
+  if (product == "time_since_melt") {
+
+    out <- raster::stack(lapply(files$date, calc_time_since_melt, trx = files$fullname[1L]))
+  } else {
+   print("only product 'time_since_melt' currently supported ")    
+  }
   setZ(out, files$date)
 }