Bugfix to TCR filtering

bbimber · bbimber · commit fa69c4b310f6 · 2022-05-23T14:38:42.000-07:00
diff --git a/singlecell/resources/chunks/TcrFilter.R b/singlecell/resources/chunks/TcrFilter.R
@@ -22,7 +22,7 @@ for (datasetId in names(seuratObjects)) {
         return(FALSE)
       }
 
-      values <- unlist(strsplit(x, split = ','))
+      values <- unlist(strsplit(as.character(x), split = ','))
       return(length(intersect(values, cdr3ForLocus)) != 0)
     })
 

Original file line number	Diff line number	Diff line change
`@@ -22,7 +22,7 @@ for (datasetId in names(seuratObjects)) {`
`22`	`22`	`return(FALSE)`
`23`	`23`	`}`
`24`	`24`
`25`		`- values <- unlist(strsplit(x, split = ','))`
	`25`	`+ values <- unlist(strsplit(as.character(x), split = ','))`
`26`	`26`	`return(length(intersect(values, cdr3ForLocus)) != 0)`
`27`	`27`	`})`
`28`	`28`