[ci-skip] Ensure reproducibility of scRNA

PLN-team · Jan 23, 2024 · 121c426 · 121c426
1 parent 9366101
commit 121c426
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/.gitignore b/.gitignore
@@ -56,6 +56,9 @@ src/*.dll
 # Plot in testthat
 tests/testthat/Rplots.pdf
 
+# Raw data files
+data-raw/*.Rdata
+
 # Mac bullsh.
 .DS_Store
 

diff --git a/data-raw/scRNA.R b/data-raw/scRNA.R
@@ -5,7 +5,11 @@ library(scater)   # bioManager::install("scater")
 library(ggplot2)  # install.packages("ggplot2")
 
 ## get data from "https://github.com/LuyiTian/sc_mixology/raw/master/data/sincell_with_class_5cl.RData")
-load("~/Downloads/sincell_with_class_5cl.RData")
+if (!file.exists("data-raw/sincell_with_class_5cl.RData")) {
+  download.file(url = "https://github.com/LuyiTian/sc_mixology/raw/master/data/sincell_with_class_5cl.RData",
+                destfile = "data-raw/sincell_with_class_5cl.RData")
+}
+load("data-raw/sincell_with_class_5cl.RData")
 
 
 sce_qc <- computeSumFactors(sce_sc_10x_5cl_qc)