R/extractChannel.R

In tz-lom/Resonance.R3: Reads R3 file format

extractChannel <- function(file, channel){
  data <- readStructurized(normalizePath(file, mustWork = T))
  
  if(is.numeric(channel)){
    si <- Filter(function(x) x$id == channel, data$streams)[[1]]
  } else {
    si <- Filter(function(x) x$name == channel, data$streams)[[1]]
  }
  
  do.call(
    DBcombine,
    Filter(
      function(b) identical(SI(b), si) ,
      data$blocks
    )
  )
}