chore: add terra package to DESCRIPTION

Author: pwwang

.Rbuildignore

@@ -11,12 +11,13 @@
 ^pkgdown$
 ^conda\/.+
 ^conda$
+^notebooks\/.+
+^notebooks$
 ^docs\/.+
 ^docs$
 ^test\.ipynb$
 ^.+\.Rcheck/.+$
 ^.+\.tar\.gz$
 ^\.github\/.+$
-^conda\/.+
 ^Makefile$
 ^Rplots\.pdf$

.github/workflows/main.yml

@@ -55,7 +55,8 @@ jobs:
             any::Seurat, any::concaveman, any::gridGraphics, any::ggVennDiagram,
             any::clustree, any::ggwordcloud, any::ggalluvial, any::ggpubr, any::callr,
             any::ggforce, any::ggraph, any::ggridges, any::hexbin, any::igraph,
-            any::scattermore, any::ggupset, any::iNEXT, any::metap, any::tidyprompt
+            any::scattermore, any::ggupset, any::iNEXT, any::metap, any::tidyprompt,
+            any::terra
 
       - uses: r-lib/actions/check-r-package@v2
         env:

DESCRIPTION

@@ -48,6 +48,7 @@ Suggests:
     callr,
     metap (>= 1.11),
     knitr,
+    terra,
     rmarkdown
 LazyData: true
 LazyDataCompression: xz

R/spatialplot.R

@@ -140,7 +140,8 @@ SpatialPlot.Seurat.VisiumV2 <- function(
                 points_args$label_segment_color <- label_segment_color
                 points_args$label_insitu <- label_insitu
             } else if (!is.null(features)) {
-                cells <- unique(Seurat:::CellsByImage(object, images = if(isFALSE(image)) NULL else image, unlist = TRUE))
+                cells_by_image <- utils::getFromNamespace("CellsByImage", "Seurat")
+                cells <- unique(cells_by_image(object, images = if(isFALSE(image)) NULL else image, unlist = TRUE))
                 featdata <- Seurat::FetchData(
                     object = object,
                     vars = features,
@@ -160,7 +161,6 @@ SpatialPlot.Seurat.VisiumV2 <- function(
                     facet_by <- ".facet_var"
                 }
             }
-            d <<- points_args$data
             points_args$highlight <- highlight
             points_args$highlight_alpha <- highlight_alpha
             points_args$highlight_size <- highlight_size