From e0702e73a78acd185de1a9fefbbceb92f0b6fcf9 Mon Sep 17 00:00:00 2001
From: Heike Hofmann <hofmann@iastate.edu>
Date: Thu, 23 May 2024 10:20:25 -0500
Subject: [PATCH] sorry, but I had to use the pipe to see what's going on here

---
 app/server.R | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/app/server.R b/app/server.R
index ceb1c8d..2f0e876 100644
--- a/app/server.R
+++ b/app/server.R
@@ -47,7 +47,11 @@ parse_rgluiprev <- function(x)
 render_land <- function(src,x3p,ccut)
 {
 	imgsrc <- gsub(".x3p$",".png",src)
-	x3p_image(x3p_sample(x3p_add_hline(x3p,yintercept = ccut, size = 20, color = "#ea2b1f"),m=5) %>% x3p_rotate(),zoom=1)
+	x3p %>%
+	  x3p_add_hline(yintercept = ccut, size = 20, color = "#ea2b1f") %>%
+	  x3p_sample(m=5) %>%
+	  x3p_rotate() %>%
+	  x3p_image(size = c(750,250), zoom=1)
 	snapshot3d(imgsrc,webshot=TRUE)
 	return(imgsrc)
 }