fix window issue

.gitignore

@@ -10,4 +10,6 @@ Meta
 .gitattributes
 
 
-.vscode
+.vscode
+small_data.rds
+test.R

DESCRIPTION

@@ -20,9 +20,27 @@ Depends: R (>= 4.0)
 VignetteBuilder: knitr
 BugReports: https://github.com/ellispatrick/lisaClust/issues
 URL: https://ellispatrick.github.io/lisaClust/, https://github.com/ellispatrick/lisaClust
-Imports: ggplot2, class, concaveman, grid, BiocParallel, spatstat.explore,
-        spatstat.geom, BiocGenerics, S4Vectors, methods, spicyR,
-        purrr, stats, data.table, dplyr, tidyr, SingleCellExperiment, SpatialExperiment,
-        SummarizedExperiment, pheatmap
+Imports: 
+    ggplot2,
+    class,
+    concaveman,
+    grid,
+    BiocParallel,
+    spatstat.explore,
+    spatstat.geom,
+    BiocGenerics,
+    S4Vectors,
+    methods,
+    spicyR,
+    purrr,
+    stats,
+    data.table,
+    dplyr,
+    tidyr,
+    SingleCellExperiment,
+    SpatialExperiment,
+    SummarizedExperiment,
+    pheatmap,
+    spatstat.random
 Suggests: BiocStyle, knitr, rmarkdown
 RoxygenNote: 7.2.3

NAMESPACE

@@ -65,6 +65,7 @@ importFrom(spatstat.geom,owin)
 importFrom(spatstat.geom,ppp)
 importFrom(spatstat.geom,solapply)
 importFrom(spatstat.geom,union.owin)
+importFrom(spatstat.random,expand.owin)
 importFrom(spicyR,"cellAnnotation<-")
 importFrom(spicyR,SegmentedCells)
 importFrom(spicyR,cellAnnotation)

R/LISA.R

@@ -367,6 +367,7 @@ weightCounts <- function(dt, X, maxD, lam) {
 #' @rdname inhomLocalK
 #' @importFrom spatstat.geom ppp closepairs marks area
 #' @importFrom spatstat.explore density.ppp
+#' @importFrom spatstat.random expand.owin
 #' @importFrom tidyr pivot_longer
 #' @importFrom dplyr left_join
 inhomLocalK <-
@@ -379,6 +380,7 @@ inhomLocalK <-
            lisaFunc = "K") {
 
     ow <- makeWindow(data, window, window.length)
+    ow <- spatstat.random::expand.owin(ow, distance = 0.01)
     X <-
       spatstat.geom::ppp(
         x = data$x,