From 726e37ee1957b6f0799d5a493595694869c97c40 Mon Sep 17 00:00:00 2001
From: xiangpin <xshuangbin@163.com>
Date: Fri, 19 May 2023 20:33:12 +0800
Subject: [PATCH] convert first element of assays to matrix using DESeq2

---
 R/functions_SE.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/functions_SE.R b/R/functions_SE.R
index 2b02d851..d5e689fc 100755
--- a/R/functions_SE.R
+++ b/R/functions_SE.R
@@ -1093,6 +1093,10 @@ get_differential_transcript_abundance_deseq2_SE <- function(.data,
         }
   
 	my_contrasts = .contrasts
+    
+       if (!inherits(assays(.data)[[1]], 'matrix')){
+           assays(.data)[[1]] <- as.matrix(assays(.data)[[1]])
+       }
 
 	deseq2_object =
 		.data %>%