Update server.R

martabica · web-flow · commit 5fcbc415684b · 2025-04-26T16:09:00.000+01:00
diff --git a/dea/tab_DEA/server.R b/dea/tab_DEA/server.R
@@ -448,7 +448,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
`@@ -448,7 +448,7 @@ g <- ggheatmap_theme(ggheatmap = p,`
`448`	`448`	`legend.text = element_text(size= 18))`
`449`	`449`	`)`
`450`	`450`	`)`
`451`		`-g`
	`451`	`+p`
`452`	`452`	`}`
`453`	`453`
`454`	`454`	`min_max_scale <- function(x, new_min = 0, new_max = 1) {`