From f37e67f9dd0fd8dd0a613bc4d94f54dc2bcc839f Mon Sep 17 00:00:00 2001
From: Laurent Modolo <laurent@modolo.fr>
Date: Thu, 25 Oct 2018 16:50:41 +0200
Subject: [PATCH] project.R: fix blancks problem in anova

---
 R/project.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/R/project.R b/R/project.R
index 7f3c905..1955d9a 100644
--- a/R/project.R
+++ b/R/project.R
@@ -67,7 +67,10 @@ analysis <- function(data_path = "data/") {
     set_data <- set_analysis(paste0(data_path, "/", folder),
                                         meta = T)
     set_data$set <- folder
-    set_data$drug <- paste0(set_data$drug, "_", folder)
+    set_data$drug <- ifelse(set_data$drug %in% "None",
+                            "None",
+                            paste0(set_data$drug, "_", folder)
+    )
     if (length(min_sets_factors) == 0) {
       min_sets_factors <- colnames(set_data)
     }
-- 
GitLab