Add fault tolerance

Author: bbimber

singlecell/resources/chunks/AppendCiteSeq.R

@@ -16,7 +16,13 @@ for (datasetId in names(seuratObjects)) {
 
     matrixDir <- featureData[[datasetId]]
     if (!is.null(matrixDir)) {
-        seuratObj <- CellMembrane::AppendCiteSeq(seuratObj, unfilteredMatrixDir = matrixDir, normalizeMethod = normalizeMethod, datasetId = datasetId, featureMetadata = featureMetadata, adtWhitelist = adtWhitelist)
+        tryCatch({
+            seuratObj <- CellMembrane::AppendCiteSeq(seuratObj, unfilteredMatrixDir = matrixDir, normalizeMethod = normalizeMethod, datasetId = datasetId, featureMetadata = featureMetadata, adtWhitelist = adtWhitelist)
+        }, error = function(e){
+            print(paste0('Error running AppendCiteSeq for: ', datasetId))
+            print(conditionMessage(e))
+            traceback()
+        })
     } else {
         print('matrixDir was NULL, skipping CITE-seq')
     }

singlecell/resources/chunks/CiteSeqDimReduxDist.R

@@ -8,8 +8,7 @@ for (datasetId in names(seuratObjects)) {
         tryCatch({
             seuratObj <- bindArgs(CellMembrane::CiteSeqDimRedux.Dist, seuratObj)()
         }, error = function(e){
-            conditionMessage(e)
-            print(paste0('Error running CiteSeqDimRedux.Dist'))
+            print(paste0('Error running CiteSeqDimRedux.Dist for: ', datasetId))
             print(conditionMessage(e))
             traceback()
         })