diff --git a/R/app-macs2.R b/R/app-macs2.R index 244e45f4..95decf30 100644 --- 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]