Double [] for merge arg

r.scripts/sc-TissueMapper_RAW.R

@@ -111,7 +111,7 @@ merges <- NULL
 merges <- NULL
 for (i in unique(sc10x.groups$Patient[sc10x.groups$Keep==1])){
   for (j in sc10x.groups$Samples[sc10x.groups$Keep==1]){
-    if (sc10x.groups[sc10x.groups$Samples==j,][opt$merge]==i){
+    if (sc10x.groups[sc10x.groups$Samples==j,][[opt$merge]]==i){
       merges <- c(merges,j)
     }
   }