Add warning in getCistromeEnrichment

Carmen Bravo · Carmen Bravo · commit 577e0d1a3ad6 · 2019-06-05T11:06:31.000+02:00
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{

Original file line number	Diff line number	Diff line change
`@@ -550,7 +550,7 @@ getCistromeEnrichment <- function(`
`550`	`550`	`){`
`551`	`551`	`topicCistromes <- cisTopicObject@cistromes.regions[[topic]]`
`552`	`552`
`553`		`- if (is.null(grep(TFname, names(topicCistromes)))){`
	`553`	`+ if (length(grep(TFname, names(topicCistromes))) < 1){`
`554`	`554`	`stop(paste0('The specified cistrome cannot be found. Please, check whether there is a cistrome for ', TFname, ' in topic ', topic, ' with ', annotation, '.'))`
`555`	`555`	`}`
`556`	`556`	`else{`