do not append if attr already exists

pepkit · Mar 16, 2020 · 2d8299a · 2d8299a
1 parent d42c17a
commit 2d8299a
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/project.R b/R/project.R
@@ -303,9 +303,12 @@ setMethod(
         for (iConst in seq_along(constants)) {
             # create a one column data.table and glue appand it with to the 
             # current samples data.table
-            constantCol = data.table::data.table(rep(constants[[iConst]], colLen))
-            names(constantCol) = constantsNames[iConst]
-            .Object@samples = cbind(.Object@samples, constantCol)
+            if(!constantsNames[iConst] %in% colnames(sampleTable(.Object))) {
+                constantCol = 
+                    data.table::data.table(rep(constants[[iConst]], colLen))
+                names(constantCol) = constantsNames[iConst]
+                .Object@samples = cbind(.Object@samples, constantCol)
+            }
         }
     }
     return(.Object)