Fixing reproducibility/seed issues with multiple functions

[irzamsarfraz]

• .withSeed internal function does not seem to fix the seed and computes random results every time (for now using withr::with_seed directly) in many functions including scaterPCA and scaterUMAP
• Added seed to runHarmony function
• Added seed to runSeuratFindClusters function

[codecov[bot]]

Codecov Report

Attention: 117 lines in your changes are missing coverage. Please review.

Comparison is base (5e9e1a6) 52.76% compared to head (2f9d9db) 52.72%. Report is 12 commits behind head on devel.

:exclamation: Current head 2f9d9db differs from pull request most recent head 116a9fe. Consider uploading reports for the commit 116a9fe to get more accurate results

Additional details and impacted files

```diff @@ Coverage Diff @@ ## devel #723 +/- ## ========================================== - Coverage 52.76% 52.72% -0.05% ========================================== Files 79 79 Lines 12695 12703 +8 ========================================== - Hits 6699 6698 -1 - Misses 5996 6005 +9 ``` | [Files](https://app.codecov.io/gh/compbiomed/singleCellTK/pull/723?src=pr&el=tree&utm_medium=referral&utm_source=github&utm_content=comment&utm_campaign=pr+comments&utm_term=compbiomed) | Coverage Δ | | |---|---|---| | [R/doubletFinder\_doubletDetection.R](https://app.codecov.io/gh/compbiomed/singleCellTK/pull/723?src=pr&el=tree&utm_medium=referral&utm_source=github&utm_content=comment&utm_campaign=pr+comments&utm_term=compbiomed#diff-Ui9kb3VibGV0RmluZGVyX2RvdWJsZXREZXRlY3Rpb24uUg==) | `76.68% <100.00%> (ø)` | | | [R/miscFunctions.R](https://app.codecov.io/gh/compbiomed/singleCellTK/pull/723?src=pr&el=tree&utm_medium=referral&utm_source=github&utm_content=comment&utm_campaign=pr+comments&utm_term=compbiomed#diff-Ui9taXNjRnVuY3Rpb25zLlI=) | `47.29% <ø> (-1.98%)` | :arrow_down: | | [R/runCluster.R](https://app.codecov.io/gh/compbiomed/singleCellTK/pull/723?src=pr&el=tree&utm_medium=referral&utm_source=github&utm_content=comment&utm_campaign=pr+comments&utm_term=compbiomed#diff-Ui9ydW5DbHVzdGVyLlI=) | `80.58% <100.00%> (ø)` | | | [R/runTSNE.R](https://app.codecov.io/gh/compbiomed/singleCellTK/pull/723?src=pr&el=tree&utm_medium=referral&utm_source=github&utm_content=comment&utm_campaign=pr+comments&utm_term=compbiomed#diff-Ui9ydW5UU05FLlI=) | `78.26% <100.00%> (ø)` | | | [R/runUMAP.R](https://app.codecov.io/gh/compbiomed/singleCellTK/pull/723?src=pr&el=tree&utm_medium=referral&utm_source=github&utm_content=comment&utm_campaign=pr+comments&utm_term=compbiomed#diff-Ui9ydW5VTUFQLlI=) | `81.53% <100.00%> (ø)` | | | [R/scDblFinder\_doubletDetection.R](https://app.codecov.io/gh/compbiomed/singleCellTK/pull/723?src=pr&el=tree&utm_medium=referral&utm_source=github&utm_content=comment&utm_campaign=pr+comments&utm_term=compbiomed#diff-Ui9zY0RibEZpbmRlcl9kb3VibGV0RGV0ZWN0aW9uLlI=) | `80.95% <100.00%> (ø)` | | | [R/scater\_PCA.R](https://app.codecov.io/gh/compbiomed/singleCellTK/pull/723?src=pr&el=tree&utm_medium=referral&utm_source=github&utm_content=comment&utm_campaign=pr+comments&utm_term=compbiomed#diff-Ui9zY2F0ZXJfUENBLlI=) | `100.00% <100.00%> (ø)` | | | [R/scds\_doubletdetection.R](https://app.codecov.io/gh/compbiomed/singleCellTK/pull/723?src=pr&el=tree&utm_medium=referral&utm_source=github&utm_content=comment&utm_campaign=pr+comments&utm_term=compbiomed#diff-Ui9zY2RzX2RvdWJsZXRkZXRlY3Rpb24uUg==) | `84.93% <100.00%> (ø)` | | | [R/seuratFunctions.R](https://app.codecov.io/gh/compbiomed/singleCellTK/pull/723?src=pr&el=tree&utm_medium=referral&utm_source=github&utm_content=comment&utm_campaign=pr+comments&utm_term=compbiomed#diff-Ui9zZXVyYXRGdW5jdGlvbnMuUg==) | `73.30% <100.00%> (+0.09%)` | :arrow_up: | | [R/runBatchCorrection.R](https://app.codecov.io/gh/compbiomed/singleCellTK/pull/723?src=pr&el=tree&utm_medium=referral&utm_source=github&utm_content=comment&utm_campaign=pr+comments&utm_term=compbiomed#diff-Ui9ydW5CYXRjaENvcnJlY3Rpb24uUg==) | `21.48% <0.00%> (-0.08%)` | :arrow_down: | | ... and [1 more](https://app.codecov.io/gh/compbiomed/singleCellTK/pull/723?src=pr&el=tree-more&utm_medium=referral&utm_source=github&utm_content=comment&utm_campaign=pr+comments&utm_term=compbiomed) | |

:umbrella: View full report in Codecov by Sentry.
:loudspeaker: Have feedback on the report? Share it here.