Fix: sinseTo never removed "DMSO" from drugMatrix

Former-commit-id: 178008c Former-commit-id: 6d1274227cb2a937175c1d544cfe62666a34d671 Former-commit-id: dc2594ad84943fa1074f155e3e578b6d3d968dd2
bhklab · Apr 14, 2020 · b98108c · b98108c
1 parent 354afde
commit b98108c
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/R/ToxicoSet.R b/R/ToxicoSet.R
@@ -1083,7 +1083,15 @@ subsetTo <- function(object, cell_lines = NULL,
                     cell_lines = cell_lines,
                     drugs = drugs, features = features,
                     duration = duration)
-
+
+  ##TODO:: Add a value to tSet which indicates the experimental design!
+  ##FIXME:: Don't hard code object names!
+  if (tSet@annotation$name == "drugMatrix") {
+    if (!('DMSO' %in% drugs)) {
+      drugs <- c(drugs, 'DMSO')
+    }
+  }
+
   ######
   # SUBSETTING MOLECULAR PROFILES SLOT
   ######