Autodownload TCR data if missing

BimberLab · Mar 4, 2024 · 84bb901 · 84bb901
1 parent 3c91df0
commit 84bb901
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/singlecell/resources/chunks/SummarizeTCellActivation.R b/singlecell/resources/chunks/SummarizeTCellActivation.R
@@ -10,6 +10,10 @@ for (datasetId in names(seuratObjects)) {
     printName(datasetId)
     seuratObj <- readSeuratRDS(seuratObjects[[datasetId]])
 
+    if (!'HasCDR3Data' %in% names(seuratObj@meta.data)){
+        seuratObj <- seuratObj <- Rdiscvr::DownloadAndAppendTcrClonotypes(seuratObj, allowMissing = FALSE)
+    }
+
     outFile <- paste0(outputPrefix, '.', makeLegalFileName(datasetId), '.activation.txt')
     Rdiscvr::SummarizeTNK_Activation(seuratObj, outFile = outFile, xFacetField = xFacetField, groupingFields = groupingFields, activationFieldName = activationFieldName, threshold = threshold)