From bf67802c411af968a21240decfc74d59f6132510 Mon Sep 17 00:00:00 2001
From: OganM <ogan.mancarci@gmail.com>
Date: Mon, 8 Jul 2024 23:07:23 -0700
Subject: [PATCH] fix gene resultset processing

---
 R/processors.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/processors.R b/R/processors.R
index a6f26275..ec78abf0 100644
--- a/R/processors.R
+++ b/R/processors.R
@@ -1072,7 +1072,7 @@ processDifferentialExpressionAnalysisResultByGeneValueObject_tsv <- function(con
     contrast_counts <- purrr::map_int(contrast_data,length)
     
     contrast.ID <- contrast_data %>% purrr::map(function(x){
-        stringr::str_extract(x,'factor=[0-9:]*') %>%
+        stringr::str_extract(x,'factor=[0-9:]*') %>% na.omit() %>% 
             gsub('factor=',"",.) %>% strsplit(':') %>% purrr::map(sort) %>% 
             purrr::map(paste,collapse='_') %>% unlist
     }) %>% unlist
@@ -1082,7 +1082,7 @@ processDifferentialExpressionAnalysisResultByGeneValueObject_tsv <- function(con
         sub <- glue::glue('{property}=')
         
         contrast_data %>% purrr::map(function(x){
-            stringr::str_extract(x,extract) %>%
+            stringr::str_extract(x,extract) %>% na.omit() %>% 
                 gsub(sub,"",.)
         }) %>% unlist %>% as.numeric
     }