Update server.R

martabica · web-flow · commit 145fc0d13696 · 2025-04-26T13:23:30.000+01:00
diff --git a/dea/tab_DEA/server.R b/dea/tab_DEA/server.R
@@ -446,7 +446,7 @@ g <- ggheatmap_theme(ggheatmap = p,
           legend.text = element_text(size= 18))
     )
   )
-g
+p
 }
 
 min_max_scale <- function(x, new_min = 0, new_max = 1) {

Original file line number	Diff line number	Diff line change
`@@ -446,7 +446,7 @@ g <- ggheatmap_theme(ggheatmap = p,`
`446`	`446`	`legend.text = element_text(size= 18))`
`447`	`447`	`)`
`448`	`448`	`)`
`449`		`-g`
	`449`	`+p`
`450`	`450`	`}`
`451`	`451`
`452`	`452`	`min_max_scale <- function(x, new_min = 0, new_max = 1) {`