Fix recursion error in R scripts

bbimber · bbimber · commit 687342f5a85a · 2023-11-01T09:03:23.000-07:00
diff --git a/singlecell/resources/chunks/Functions.R b/singlecell/resources/chunks/Functions.R
@@ -129,7 +129,7 @@ addErrorMessage <- function(f) {
 }
 
 readSeuratRDS <- function(filePath) {
-    seuratObj <- readSeuratRDS(filePath)
+    seuratObj <- readRDS(filePath)
 
     # NOTE: this could be used after SeuratObject upgrades
     #if (!('version' %in% slotNames(seuratObj)) || package_version(seuratObj@version) < package_version('5.0.0')) {

Original file line number	Diff line number	Diff line change
`@@ -129,7 +129,7 @@ addErrorMessage <- function(f) {`
`129`	`129`	`}`
`130`	`130`
`131`	`131`	`readSeuratRDS <- function(filePath) {`
`132`		`- seuratObj <- readSeuratRDS(filePath)`
	`132`	`+ seuratObj <- readRDS(filePath)`
`133`	`133`
`134`	`134`	`# NOTE: this could be used after SeuratObject upgrades`
`135`	`135`	`#if (!('version' %in% slotNames(seuratObj)) \|\| package_version(seuratObj@version) < package_version('5.0.0')) {`