Use timelapse template for image data field validation

.Rbuildignore

@@ -13,3 +13,4 @@
 ^bccamtrap\.code-workspace$
 ^[.]?air[.]toml$
 ^\.vscode$
+^\.claude$

.gitignore

@@ -6,3 +6,7 @@
 .quarto
 .Rprofile
 docs
+.claude
+
+/.quarto/
+**/*.quarto_ipynb

DESCRIPTION

@@ -14,17 +14,19 @@ URL: https://github.com/bcgov/bccamtrap,
     https://bcgov.github.io/bccamtrap/
 BugReports: https://github.com/bcgov/bccamtrap/issues
 Depends: 
-    R (>= 2.10)
+    R (>= 4.1.0)
 Imports: 
     bcmaps (>= 2.2.0),
     bslib,
     cli,
+    DBI,
     dplyr,
     ggiraph,
     ggplot2,
     glue,
     gt,
     janitor,
+    jsonlite,
     leaflet,
     lubridate,
     mapview,
@@ -33,19 +35,17 @@ Imports:
     readr,
     readxl,
     rlang (>= 1.1.0),
+    RSQLite,
     sf,
     shiny,
     shinycssloaders,
     tidyr,
     withr,
     zoo
 Suggests: 
-    DBI,
     googledrive,
-    jsonlite,
-    RSQLite,
-    testthat (>= 3.0.0),
+    testthat (>= 3.0.0)
 Config/testthat/edition: 3
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.3

R/classes.R

@@ -22,8 +22,13 @@ as.deployments <- function(x, subclass, ...) {
   )
 }
 
-as.image_data <- function(x, ...) {
-  structure(x, class = c("image_data", class(x)), ...)
+as.image_data <- function(x, template, ...) {
+  structure(
+    x,
+    class = c("image_data", class(x)),
+    template = template,
+    ...
+  )
 }
 
 as.sample_sessions <- function(x, ...) {