fix issue with undefined species in Macs2

uzh · Jun 14, 2024 · 8d0fb4a · 8d0fb4a
1 parent 7e6b6dd
commit 8d0fb4a
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/app-macs2.R b/R/app-macs2.R
@@ -19,8 +19,11 @@ ezMethodMacs2 = function(input=NA, output=NA, param=NA){
                 "Mus musculus (mouse)"="mm",
                 "Caenorhabditis elegans (worm)"="ce",
                 "Drosophila melanogaster (fruitfly)"="dm")
-    isGsize <- grepl(input$getColumn("Species"), names(gsizes),
-                     ignore.case = TRUE)
+    species <- input$getColumn("Species")
+    if(species == ''){
+        species = 'undefined'
+    }
+    isGsize <- grepl(species, names(gsizes),ignore.case = TRUE)
     if(any(isGsize)){
       message("Use predefined gsize: ", gsizes[isGsize])
       gsize <- gsizes[isGsize]