add isTRUE() to if condition in Summary.R

gagneurlab · Aug 14, 2024 · 61be28b · 61be28b
1 parent 3c689c7
commit 61be28b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/drop/modules/aberrant-expression-pipeline/OUTRIDER/Summary.R b/drop/modules/aberrant-expression-pipeline/OUTRIDER/Summary.R
@@ -49,7 +49,7 @@ if(is.null(colData(ods)$isExternal)) colData(ods)$isExternal <- FALSE
 #'
 #' ## Visualize
 #' ### Encoding dimension
-if (metadata(ods)[["useOHTtoObtainQ"]]){
+if isTRUE((metadata(ods)[["useOHTtoObtainQ"]])){
   print(c("Optimal dimension q was determined using OHT to be", getBestQ(ods)), quote = F)
 } else{
   plotEncDimSearch(ods) +