From 96724998f692f41dfed9f53ee0736f30085670b5 Mon Sep 17 00:00:00 2001
From: rafnuss <rafnuss@gmail.com>
Date: Tue, 13 Sep 2022 13:23:03 -0400
Subject: [PATCH] use `image_id` as `sequenceID` is `project_type` is `"Image"`

---
 R/read_wi.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/read_wi.R b/R/read_wi.R
index 5ec8b9ea..8941208c 100644
--- a/R/read_wi.R
+++ b/R/read_wi.R
@@ -305,7 +305,7 @@ read_wi <- function(directory = ".") {
     dplyr::transmute(
       mediaID = .data$image_id,
       deploymentID = .data$deployment_id,
-      sequenceID = NA_character_,
+      sequenceID = ifelse(wi_project$project_type == "Image", .data$image_id, NA_character_), # TODO: Check ID for sequence type
       captureMethod = NA_character_,
       timestamp = .data$timestamp,
       filePath = .data$location,