From c4a93e0cebf254bda97a39bd6d5d80fe20feaa15 Mon Sep 17 00:00:00 2001 From: Heike Hofmann Date: Mon, 11 Nov 2024 14:54:10 -0600 Subject: [PATCH 1/2] fix issue #10 --- app/server.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/app/server.R b/app/server.R index a9ef63b..66304a3 100644 --- a/app/server.R +++ b/app/server.R @@ -138,7 +138,7 @@ server <- function(input, output, session) { bull <- read_bullet(temp_dir) # Check if we need to rotate the bullet - hinfo <- b1$x3p[[1]]$header.info + hinfo <- bull$x3p[[1]]$header.info if (hinfo$sizeX > hinfo$sizeY) { alert("Detected rotated bullet, rotating 90 degrees...") bull$x3p <- lapply(bull$x3p, x3p_rotate, angle = -90) @@ -794,4 +794,4 @@ server <- function(input, output, session) { }) ################################################################################# ################################################################################# -} \ No newline at end of file +} From 6d349fe31f6b51a0fcaf9a5ed48acb67c4ebb5b7 Mon Sep 17 00:00:00 2001 From: Heike Hofmann Date: Mon, 11 Nov 2024 15:06:05 -0600 Subject: [PATCH 2/2] rotating logic inversed --- app/server.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/server.R b/app/server.R index 66304a3..35c848b 100644 --- a/app/server.R +++ b/app/server.R @@ -139,7 +139,7 @@ server <- function(input, output, session) { # Check if we need to rotate the bullet hinfo <- bull$x3p[[1]]$header.info - if (hinfo$sizeX > hinfo$sizeY) { + if (hinfo$sizeX < hinfo$sizeY) { alert("Detected rotated bullet, rotating 90 degrees...") bull$x3p <- lapply(bull$x3p, x3p_rotate, angle = -90) }