Fixed typo in checkParametrValidity that was introduced with the last commit

afac10fa · Christian Arnold · 1abe6265 · afac10fa
Commit afac10fa authored Aug 14, 2018 by Christian Arnold
--- a/src/R/checkParameterValidity.R
+++ b/src/R/checkParameterValidity.R
@@ -295,7 +295,7 @@ if (useAllTFs) {
  }
  
  allTFs = sapply(strsplit(basename(TFs), "_"), "[[", 1)
-  stopifnot(length(allTFs > 0))
+  stopifnot(length(allTFs) > 0)
  
 }