fix: fixed call_entab to write data_format attribute correctly for ms data

ethanbass · ethanbass · commit 9a42e7a3db62 · 2025-06-07T15:53:10.000-05:00
diff --git a/R/call_entab.R b/R/call_entab.R
@@ -48,7 +48,8 @@ call_entab <- function(path, data_format = c("wide", "long"),
       x <- data.frame(row.names = x$time, intensity = x$intensity)
     }
   } else if (grepl("ms$", file_format)){
-    colnames(x)[c(1,3)] <- c("rt", "intensity")
+    colnames(x)[c(1, 3)] <- c("rt", "intensity")
+    data_format <- "long"
   }
   x <- convert_chrom_format(x, format_out = format_out)
   if (read_metadata){

Original file line number	Diff line number	Diff line change
`@@ -48,7 +48,8 @@ call_entab <- function(path, data_format = c("wide", "long"),`
`48`	`48`	`x <- data.frame(row.names = x$time, intensity = x$intensity)`
`49`	`49`	`}`
`50`	`50`	`} else if (grepl("ms$", file_format)){`
`51`		`- colnames(x)[c(1,3)] <- c("rt", "intensity")`
	`51`	`+ colnames(x)[c(1, 3)] <- c("rt", "intensity")`
	`52`	`+ data_format <- "long"`
`52`	`53`	`}`
`53`	`54`	`x <- convert_chrom_format(x, format_out = format_out)`
`54`	`55`	`if (read_metadata){`