Update runDoRothEA.R

Fix the hidden bug when calling the object "viper_regulon" instead of "regulon" inside the function.

This function didn't return an error so far, possible due to the fact that the object "viper_regulon" was loaded into the workspace prior to calling the function. Nevertheless, it is a standard practice to correct all detected bugs to prevent future issues.


Former-commit-id: 84ef4f6 [formerly 68fc0c6]
Former-commit-id: ef1cc7d

R/runDoRothEA.R

@@ -21,7 +21,8 @@ runDoRothEA<-function(df, regulon, confidence_level=c('A','B','C'), write2file =
   library(viper)
   library(tibble)
   library(tidyr)
-  names(regulon) <- sapply(strsplit(names(viper_regulon), split = ' - '), head, 1)
+  # names(regulon) <- sapply(strsplit(names(viper_regulon), split = ' - '), head, 1)
+  names(regulon) <- sapply(strsplit(names(regulon), split = ' - '), head, 1)
   filtered_regulon <- regulon %>%
     map_df(.f = function(i) {
       tf_target = i$tfmode %>%