Merge pull request #41 from william-hutchison/update-gate

Update gate
william-hutchison · Sep 24, 2024 · 0d67253 · 0d67253
2 parents d88367b + 04b4a7b
commit 0d67253
Show file tree

Hide file tree

Showing 7 changed files with 107 additions and 416 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: tidySpatialExperiment
 Title: SpatialExperiment with tidy principles 
-Version: 1.1.4
+Version: 1.1.5
 Authors@R: c(
     person("William", "Hutchison", email = "[email protected]", role = c("aut", "cre"), 
            comment = c(ORCID = "0009-0001-6242-4269")),

diff --git a/R/methods.R b/R/methods.R
@@ -352,24 +352,25 @@ gate_interactive <-
     }
 
     # Prepare spatial information
-    image <- 
-      spe |> 
-      SpatialExperiment::imgRaster() |> 
-      magick::image_read()
+    image_info <- 
+      SpatialExperiment::imgData(spe)[image_index, ]@listData$data[[1]] |>
+      SpatialExperiment::imgRaster() |>
+      magick::image_read() |>
+      magick::image_info()
 
     image_x_size <- 
-      magick::image_info(image)$width /
+      image_info$width /
       SpatialExperiment::imgData(spe)[image_index, ]@listData$scaleFactor
 
     image_y_size <- 
-      magick::image_info(image)$height /
+      image_info$height /
       SpatialExperiment::imgData(spe)[image_index, ]@listData$scaleFactor
 
     image_uri <- 
       SpatialExperiment::imgData(spe)[image_index, ]@listData$data[[1]] |>
       SpatialExperiment::imgRaster() |>
       plotly::raster2uri()
-    
+
     # Create plot 
     plot <-
       data |>