Add support for forceRecalculate in UCell

Author: bbimber

singlecell/resources/chunks/CalculateUCellScores.R

@@ -3,7 +3,7 @@ for (datasetId in names(seuratObjects)) {
     seuratObj <- readRDS(seuratObjects[[datasetId]])
 
     message(paste0('Loading dataset ', datasetId, ', with total cells: ', ncol(seuratObj)))
-    seuratObj <- RIRA::CalculateUCellScores(seuratObj, storeRanks = storeRanks, assayName = assayName)
+    seuratObj <- RIRA::CalculateUCellScores(seuratObj, storeRanks = storeRanks, assayName = assayName, forceRecalculate = forceRecalculate)
 
     saveData(seuratObj, datasetId)
 

singlecell/src/org/labkey/singlecell/pipeline/singlecell/CalculateUCellScores.java

@@ -27,7 +27,10 @@ public Provider()
                     }}, false),
                     SeuratToolParameter.create("assayName", "Assay Name", "Passed directly to UCell::AddModuleScore_UCell.", "textfield", new JSONObject(){{
 
-                    }}, "RNA")
+                    }}, "RNA"),
+                    SeuratToolParameter.create("forceRecalculate", "Force Recalculate", "If checked, the UCell score will always be re-calculated.", "checkbox", new JSONObject(){{
+
+                    }}, false)
             ), null, null);
         }