Tiny bug fix; ready for CRAN

baddstats · baddstats · commit 349856bf27b1 · 2025-11-29T15:31:05.000+08:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: spatstat.linnet
 Version: 3.4-0
-Date: 2025-11-28
+Date: 2025-11-29
 Title: Linear Networks Functionality of the 'spatstat' Family
 Authors@R: c(person("Adrian", "Baddeley", 
                     role = c("aut", "cre", "cph"),
diff --git a/R/eval.linim.R b/R/eval.linim.R
@@ -2,7 +2,7 @@
 #'
 #'  Analogues of eval.im, harmonise.im and im.apply for 'linim'
 #'
-#'  $Revision: 1.5 $ $Date: 2025/11/28 06:19:31 $
+#'  $Revision: 1.6 $ $Date: 2025/11/29 06:06:54 $
 
 harmonize.linim <- harmonise.linim <- function(...) {
   argz <- list(...)
@@ -216,7 +216,7 @@ linim.apply <- function(X, FUN, ...,
         df$values <- y[,i]
         result[[i]] <- linim(result[[i]], L=L, df=df)
       }
-      class(result) <- "solist"
+      result <- as.solist(result)
     }
   }
   return(result)
diff --git a/inst/doc/packagesizes.txt b/inst/doc/packagesizes.txt
@@ -41,4 +41,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2025-07-24" "3.3-0" 150 328 0 13326 3270
 "2025-07-24" "3.3-1" 150 328 0 13326 3270
 "2025-09-24" "3.3-2" 150 328 0 13356 3270
-"2025-11-28" "3.4-0" 160 370 0 14990 3270
+"2025-11-29" "3.4-0" 160 370 0 14990 3270
diff --git a/inst/info/packagesizes.txt b/inst/info/packagesizes.txt
@@ -41,4 +41,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2025-07-24" "3.3-0" 150 328 0 13326 3270
 "2025-07-24" "3.3-1" 150 328 0 13326 3270
 "2025-09-24" "3.3-2" 150 328 0 13356 3270
-"2025-11-28" "3.4-0" 160 370 0 14990 3270
+"2025-11-29" "3.4-0" 160 370 0 14990 3270

Original file line number	Diff line number	Diff line change
`@@ -2,7 +2,7 @@`
`2`	`2`	`#'`
`3`	`3`	`#' Analogues of eval.im, harmonise.im and im.apply for 'linim'`
`4`	`4`	`#'`
`5`		`-#' $Revision: 1.5 $ $Date: 2025/11/28 06:19:31 $`
	`5`	`+#' $Revision: 1.6 $ $Date: 2025/11/29 06:06:54 $`
`6`	`6`
`7`	`7`	`harmonize.linim <- harmonise.linim <- function(...) {`
`8`	`8`	`argz <- list(...)`
`@@ -216,7 +216,7 @@ linim.apply <- function(X, FUN, ...,`
`216`	`216`	`df$values <- y[,i]`
`217`	`217`	`result[[i]] <- linim(result[[i]], L=L, df=df)`
`218`	`218`	`}`
`219`		`- class(result) <- "solist"`
	`219`	`+ result <- as.solist(result)`
`220`	`220`	`}`
`221`	`221`	`}`
`222`	`222`	`return(result)`