Add experimentID and ingestionDate (#77)

* Add experimentID and ingestionDate * Update comment
hms-dbmi-cellenics · Jun 2, 2021 · 0f5e720 · 0f5e720
1 parent dbd2e45
commit 0f5e720
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/pipeline-runner/src/data-ingest/4_Prepare_experiment.r b/pipeline-runner/src/data-ingest/4_Prepare_experiment.r
@@ -180,6 +180,13 @@ task <- function(input,pipeline_config){
     seurat_obj@misc[["color_pool"]] <- color_pool
     message("Stored pool")
 
+    ################################################
+    ## Adding information regarding experiment and
+    ## ingestion
+    ################################################
+    seurat_obj@misc[["experimentId"]] <- input$experimentId
+    seurat_obj@misc[["ingestionDate"]] <- Sys.time()
+
     ################################################
     ## Checking filtered data
     ################################################