src/common_functions.R: add new colors

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"