sorry, but I had to use the pipe to see what's going on here

CSAFE-ISU · May 23, 2024 · e0702e7 · e0702e7
1 parent 74eb390
commit e0702e7
Showing 1 changed file with 5 additions and 1 deletion.
diff --git 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)
 }