add isTRUE() in if condition

gagneurlab · Aug 14, 2024 · 3c689c7 · 3c689c7
1 parent 7fa37b1
commit 3c689c7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/drop/modules/aberrant-expression-pipeline/OUTRIDER/runOutrider.R b/drop/modules/aberrant-expression-pipeline/OUTRIDER/runOutrider.R
@@ -47,7 +47,7 @@ if(length(gr) > 0){
 #ods <- estimateSizeFactors(ods) #Unnecessary!
 
 ## find optimal encoding dimension
-if (oht){
+if isTRUE(oht){
   message(date(), ": Using OHT implementation to determine optimal q ...")
   opt_q <- estimateBestQ(ods)
   metadata(ods)[["optimalEncDim"]] <- opt_q