Using single-sided selections when getting channels with end specified

dipterix · Dec 18, 2024 · 308fc52 · 308fc52
1 parent fdce8bc
commit 308fc52
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 7 deletions.
diff --git a/R/bci2000-cache.R b/R/bci2000-cache.R
@@ -79,7 +79,7 @@ BCI2000Cache <- R6::R6Class(
       arr <- private$.filearray
       signals <- subset(arr,
                         Time ~ Time >= begin &
-                          Time <= end,
+                          Time < end,
                         ChannelOrder ~ ChannelOrder == x,
                         drop = FALSE)
       time <- as.numeric(rownames(signals))

diff --git a/R/brainvis-cache.R b/R/brainvis-cache.R
@@ -82,7 +82,7 @@ BrainVisionCache <- R6::R6Class(
       arr <- private$.filearray
       signals <- subset(arr,
                    Time ~ Time >= begin &
-                     Time <= end,
+                     Time < end,
                    ChannelOrder ~ ChannelOrder == x,
                    drop = FALSE)
       time <- as.numeric(rownames(signals))

diff --git a/R/edf-cache.R b/R/edf-cache.R
@@ -62,7 +62,7 @@ EBDFCache <- R6::R6Class(
       arr <- filearray::filearray_load(file_path(private$.root_path, sprintf("Ch%d", chan)), mode = "readonly")
       # select time
       time <- arr[, 2]
-      sel <- time >= begin & time <= end
+      sel <- time >= begin & time < end
 
       # load data
       time <- time[sel]

diff --git a/R/edf.R b/R/edf.R
@@ -567,7 +567,7 @@ internal_read_edf_signal <- function(con, channels, begin = 0, end = Inf, conver
     # trying to obtain the timestamp
     # estimate earliest start
     earliest_start <- env$previous_finish
-    if( earliest_start > end ) { return() }
+    if( earliest_start >= end ) { return() }
 
     record <- read_next_record()
 
@@ -636,7 +636,7 @@ internal_read_edf_signal <- function(con, channels, begin = 0, end = Inf, conver
     slice_finish <- slice_start + record_duration
 
     env$previous_finish <- slice_finish
-    if( slice_finish < begin || slice_start > end ) { return() }
+    if( slice_finish < begin || slice_start >= end ) { return() }
 
     # annot$duration <- slice_duration
 
@@ -688,7 +688,7 @@ internal_read_edf_signal <- function(con, channels, begin = 0, end = Inf, conver
       time <- seg_start + time_0
 
       # cut time later
-      # if( time[[1]] < begin || time[[length(time)]] > end ) {
+      # if( time[[1]] < begin || time[[length(time)]] >= end ) {
       #   sel <- time >= begin & time < end
       #   seg <- seg[sel]
       #   time <- time[sel]

diff --git a/R/nsx-cache.R b/R/nsx-cache.R
@@ -75,7 +75,7 @@ NSXCache <- R6::R6Class(
 
         slen <- length(part$data)
         time <- seq(part$meta$relative_time, length.out = slen, by = 1 / sample_rate)
-        sel <- time >= begin & time <= end
+        sel <- time >= begin & time < end
 
         if(!any(sel)) { return() }