add extra check on timestamp

wadpac · Sep 30, 2024 · 75ef721 · 75ef721
1 parent 3a3d588
commit 75ef721
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/R/mergePHBdata.R b/R/mergePHBdata.R
@@ -28,7 +28,15 @@ mergePHBdata = function(filenames = NULL,
   }
   if (length(file1) > 0 && length(file2) > 0) {
     data2$data = data2$data[, which(colnames(data2$data) != "sleepEventMarker")]
-    data = merge(data1$data, data2$data, by = "timestamp")
+    d1 = data1$data
+    d2 = data2$data
+    if (length(which(is.na(d1$timestamp) == TRUE)) > 0 || 
+        length(which(is.na(d2$timestamp) == TRUE)) > 0) {
+      stop(paste0("NA values are found in the timestamps, ",
+                  "please check parameter ", timeformatName, 
+                  " which is set to ", timeformat), call. = FALSE)
+    }
+    data = merge(d1, d2, by = "timestamp")
   } else {
     if (length(file1) > 0) {
       data = data1$data