fix: use interval encoded in file to calculate LCD retention times no…

…t `500`
ethanbass · Dec 14, 2024 · d7faa83 · d7faa83
1 parent ce549b7
commit d7faa83
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/read_shimadzu_lcd.R b/R/read_shimadzu_lcd.R
@@ -390,10 +390,10 @@ read_sz_chrom <- function(path, stream){
   f <- file(path_raw, "rb")
   on.exit(close(f))
   dat <- data.frame(intensity = decode_sz_block(f))
-  seek(f,4)
-  seek(f,4)
-  interval <- readBin(f, "integer", size = 4,endian = "little")
-  times <- seq(from = 0, by = 500, length.out=nrow(dat))/60000
+  seek(f, 4)
+  seek(f, 4)
+  interval <- readBin(f, "integer", size = 4, endian = "little")
+  times <- seq(from = 0, by = interval, length.out = nrow(dat))/60000
   rownames(dat) <- times
   dat
 }