From 3591c3c1bb149277d19094bbc7c565f7fe06a5aa Mon Sep 17 00:00:00 2001 From: "Zhuoyan (Skylar) Li" <64866606+zskylarli@users.noreply.github.com> Date: Wed, 12 Jun 2024 15:05:53 -0400 Subject: [PATCH] Update R/SEraster.R Co-authored-by: David Collins <23369610+dcollins15@users.noreply.github.com> --- R/SEraster.R | 27 --------------------------- 1 file changed, 27 deletions(-) diff --git a/R/SEraster.R b/R/SEraster.R index a8f3f2c..910a6e9 100644 --- a/R/SEraster.R +++ b/R/SEraster.R @@ -488,33 +488,6 @@ RunPermutateByRotation <- function(input, n_perm = 1, verbose = FALSE) { } } -#' @keyword internal -#' -updateVisiumV2 <- function(input, pos_rotated, assay_name, angle, image_name) { - pos_new <- pos_rotated[, c("x_rotated", "y_rotated")] - input_fov <- input[[image_name]] - - fov <- CreateFOV( - pos_new[, c("x_rotated", "y_rotated")], - type = "centroids", - radius = input_fov@scale.factors[["spot"]], - assay = assay_name, - theta = angle, - key = paste0("rotated", angle, "_") - ) - visium.fov <- new( - Class = "VisiumV2", - boundaries = fov@boundaries, - molecules = fov@molecules, - assay = fov@assay, - key = fov@key, - image = rotate(input_fov@image, angle, pos_new), - scale.factors = input_fov@scale.factors - ) - input[[image_name]] <- NULL - input@images[[paste0("rotated", angle)]] <- visium.fov - return(input) -} #' @keyword internal #'