From 1132ebf121997f3da42a21bbb7a9b0b6cb6854ee Mon Sep 17 00:00:00 2001
From: Fontrodona Nicolas <nicolas.fontrodona@ens-lyon.fr>
Date: Wed, 24 Aug 2022 17:31:51 +0200
Subject: [PATCH] src/common_functions.R: add new colors

---
 src/common_functions.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/common_functions.R b/src/common_functions.R
index ceb36ca..63e91c0 100644
--- a/src/common_functions.R
+++ b/src/common_functions.R
@@ -2,7 +2,9 @@
 
 
 royalblue <- "#4169e1"
+blue_tdd <- "#a600ff"
 indianred <- "#CD5C5C"
+red_tdd <- "#ff8400"
 
 
 #' Add a column group to a table containing a gene column
@@ -11,8 +13,8 @@ indianred <- "#CD5C5C"
 #' @return The table with a column indicating if the genes are up, down or not
 #' regulated by BRAF
 get_group_columns <- function(tdd_full, dir = "./data/gene_lists/") {
-    down_braf <- read.table(paste0(dir, "BRAF_DOWN_1.5_name.txt"))$V1
-    up_braf <- read.table(paste0(dir, "BRAF_UP_1.5_name.txt"))$V1
+    down_braf <- read.table(paste0(dir, "BRAF_DOWN_1.5.txt"))$V1
+    up_braf <- read.table(paste0(dir, "BRAF_UP_1.5.txt"))$V1
     tdd_full$group <- rep("CTRL", times = nrow(tdd_full))
     tdd_full[tdd_full$gene %in% down_braf, "group"] <- "BRAF_DOWN"
     tdd_full[tdd_full$gene %in% up_braf, "group"] <- "BRAF_UP"
-- 
GitLab