use image_id as sequenceID is project_type is "Image"

inbo · Sep 13, 2022 · 9672499 · 9672499
1 parent c396f4e
commit 9672499
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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,