From 9b115ab1e2b16861a62368273783291f36cc6821 Mon Sep 17 00:00:00 2001 From: Isha Parikh Date: Thu, 9 Apr 2026 15:40:26 -0400 Subject: [PATCH] Fixed zoom brush coordinate conversion for UMAP dimred tab --- R/writer1.R | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/R/writer1.R b/R/writer1.R index d016994..4400acc 100644 --- a/R/writer1.R +++ b/R/writer1.R @@ -156,8 +156,12 @@ wrSVmainA1 <- function(prefix) { ' observe({{\n', ' brush <- input${prefix}a1inp1.br\n', ' if (!is.null(brush)) {{\n', - ' {prefix}a1oup1xy$x <- c(brush$xmin, brush$xmax)\n', - ' {prefix}a1oup1xy$y <- c(brush$ymin, brush$ymax)\n', + ' xrange <- range({prefix}dimr[[input${prefix}a1dr]][, 1], na.rm = TRUE)\n', + ' yrange <- range({prefix}dimr[[input${prefix}a1dr]][, 2], na.rm = TRUE)\n', + ' {prefix}a1oup1xy$x <- c(brush$xmin * diff(xrange) + xrange[1],\n', + ' brush$xmax * diff(xrange) + xrange[1])\n', + ' {prefix}a1oup1xy$y <- c(brush$ymin * diff(yrange) + yrange[1],\n', + ' brush$ymax * diff(yrange) + yrange[1])\n', ' }} else {{\n', ' {prefix}a1oup1xy$x <- NULL; {prefix}a1oup1xy$y <- NULL\n', ' }}\n',