From 798fcb6ab1b9214a5b8236c4661ddb077ba129c3 Mon Sep 17 00:00:00 2001
From: Elysia Chou <25360747+echou89@users.noreply.github.com>
Date: Mon, 23 Feb 2026 17:49:03 -0500
Subject: [PATCH] Replace read.table with data.table::fread for efficiency

---
 MPA/R/MPA_utils.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/MPA/R/MPA_utils.R b/MPA/R/MPA_utils.R
index 3ef979e..02f38db 100644
--- a/MPA/R/MPA_utils.R
+++ b/MPA/R/MPA_utils.R
@@ -10,7 +10,7 @@ library(utils)
 #' @return data.frame with the expression data
 #' @export
 read_expression_data <- function(file_name){
-  expr_data <- read.table(file = file_name, header = T, sep = "\t")
+  expr_data <- data.table::fread(file = file_name, header = T, sep = "\t", data.table = F)
   return(expr_data)
 }