Loading R/ConstructMetaspots.R +5 −0 Original line number Diff line number Diff line Loading @@ -20,6 +20,11 @@ ConstructMetaspots <- function( # get expression matrix: X <- GetAssayData(cur_seurat, slot='counts') # check to make sure this is just one sample: if(sum(unlist(lapply(Images(cur_seurat), function(x){nrow(cur_seurat@images[[x]]@coordinates) == 0}))) != 1){ stop("More than one sample present in grouping. Please specify a metadata column with group.by indicating different ST samples.") } # boundaries row_range <- range(cur_seurat$row) col_range <- range(cur_seurat$col) Loading Loading
R/ConstructMetaspots.R +5 −0 Original line number Diff line number Diff line Loading @@ -20,6 +20,11 @@ ConstructMetaspots <- function( # get expression matrix: X <- GetAssayData(cur_seurat, slot='counts') # check to make sure this is just one sample: if(sum(unlist(lapply(Images(cur_seurat), function(x){nrow(cur_seurat@images[[x]]@coordinates) == 0}))) != 1){ stop("More than one sample present in grouping. Please specify a metadata column with group.by indicating different ST samples.") } # boundaries row_range <- range(cur_seurat$row) col_range <- range(cur_seurat$col) Loading
