From 44ad3b96a7c37ce7dc90073d5e69222f19e0dcd9 Mon Sep 17 00:00:00 2001
From: Artur-man <artur-man@hotmail.com>
Date: Wed, 15 Jan 2025 16:51:57 +0100
Subject: [PATCH] update coordinate headers for as.SpatialExperiment

---
 R/conversion.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/conversion.R b/R/conversion.R
index 4590328..758874b 100644
--- a/R/conversion.R
+++ b/R/conversion.R
@@ -945,6 +945,8 @@ as.SpatialExperiment <- function(object, assay = NULL, reg = FALSE){
   # coordinates
   coords <- as.matrix(vrCoordinates(flipCoordinates(object, assay = assay), assay = assay, reg = reg))
   coords <- coords[colnames(rawdata),]
+  coords <- coords[,c("x", "y")]
+  colnames(coords) <- c("x_centroid", "y_centroid")
   
   # Seurat object
   spe <- SpatialExperiment::SpatialExperiment(assay=list(counts = rawdata),