feat: doDeferred()

R/classes.R

@@ -1660,14 +1660,16 @@ giottoLargeImage <- setClass(
 #' @title S4 giottoAffineImage Class
 #' @description
 #' Class extending `giottoLargeImage`. When `shear()` or `spin()` operations
-#' are performed on
-#'
-#'
+#' are performed on a `giottoLargeImage`, this class is instantiated. It
+#' provides a way of storing the affine transformation and also lazily
+#' performing it when required for a plotting preview. It is possible to force
+#' the deferred affine transform using `doDeferred()` and return a processed
+#' `giottoLargeImage`.
 #' @slot affine contains `affine2d` object allowing lazily performed spatial
 #' transforms
 #' @slot funs list of functions associated with the object. Primarily to
-#' perform the delayed/lazy operations
-#' @returns giottoAffineImage
+#' perform the delayed/lazy operation
+#' @returns `giottoAffineImage`
 setClass(
     "giottoAffineImage",
     contains = c("giottoLargeImage"),

R/generics.R

@@ -69,6 +69,11 @@ setGeneric("copy",
 )
 
 
+# lazy operations ####
+setGeneric("doDeferred", function(x, ...) standardGeneric("doDeferred"))
+
+
+
 # spatial operations ####
 setGeneric(
     "calculateOverlap",

R/images.R

@@ -285,14 +285,19 @@ get_adj_rescale_img <- function(
 # can be loaded in with terra or used with getOption("viewer")() downstream
 # based on magick:::image_preview()
 # accepts a single `magick-image` object
-.magick_preview <- function(x, tempname = "preview") {
+# only returns depth 8 images. DO NOT use for analyzed values
+.magick_preview <- function(x, 
+    basename = "preview",
+    filename = NULL) {
     stopifnot(inherits(x, "magick-image"))
     stopifnot(length(x) == 1L)
     format <- tolower(magick::image_info(x[1])$format)
-    tmp <- file.path(tempdir(), paste(tempname, format, sep = "."))
+    if (is.null(filename)) {
+        filename <- file.path(tempdir(), paste(basename, format, sep = "."))
+    }
     vmsg(.is_debug = TRUE, "`.magick_preview()` saving as", format)
-    magick::image_write(x, path = tmp, format = format, depth = 8)
-    return(tmp)
+    magick::image_write(x, path = filename, format = format, depth = 8)
+    return(filename)
 }
 
 #' @title addGiottoImageMG
@@ -2743,6 +2748,18 @@ add_img_array_alpha <- function(
 
 
 
+
+# doDeferred ####
+
+#' @export
+setMethod(
+    "doDeferred", signature("giottoAffineImage"), 
+    function(x, size = 5e5, filename = NULL, ...) {
+    x@funs$realize_magick(filename = filename, size = size, ...)
+})
+
+
+
 # converters ####
 
 

R/methods-initialize.R

@@ -669,9 +669,9 @@ setMethod("initialize", signature("giottoAffineImage"), function(.Object, ...) {
         .Object@extent <- .ext_to_num_vec(ext(d))
     }
 
-    .Object@funs$realize_magick <- function(tempname = "preview", size = 5e5) {
+    .Object@funs$realize_magick <- function(filename = NULL, size = 5e5) {
         mg <- .gaffine_realize_magick(.Object, size = size)
-        gimg <- .magick_preview(mg@mg_object, tempname = tempname) %>%
+        gimg <- .magick_preview(mg@mg_object, filename = filename) %>%
             createGiottoLargeImage()
         ext(gimg) <- ext(.Object)