Add warning in getCistromeEnrichment

aertslab · Jun 5, 2019 · 577e0d1 · 577e0d1
1 parent 91ebcae
commit 577e0d1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/RcisTarget.R b/R/RcisTarget.R
@@ -550,7 +550,7 @@ getCistromeEnrichment <- function(
 ){
   topicCistromes <- cisTopicObject@cistromes.regions[[topic]]
 
-  if (is.null(grep(TFname, names(topicCistromes)))){
+  if (length(grep(TFname, names(topicCistromes))) < 1){
     stop(paste0('The specified cistrome cannot be found. Please, check whether there is a cistrome for ', TFname, ' in topic ', topic, ' with ', annotation, '.'))
   }
   else{