From 6fa4f74ab364536a53cf1eb6da2ef404c9514da9 Mon Sep 17 00:00:00 2001
From: Guangchuang Yu <guangchuangyu@gmail.com>
Date: Fri, 20 Dec 2024 12:17:00 +0800
Subject: [PATCH] cleanup code

---
 R/emapplot_utilities.R | 30 ------------------------------
 1 file changed, 30 deletions(-)

diff --git a/R/emapplot_utilities.R b/R/emapplot_utilities.R
index e8bb013..2ce71ea 100644
--- a/R/emapplot_utilities.R
+++ b/R/emapplot_utilities.R
@@ -217,36 +217,6 @@ node_add_alpha <- function(p, hilight_category, hilight_gene, alpha_nohilight, a
 
 
 
-# adj_layout <- function(g, layout, coords) {
-#     if (!is.null(layout)) {
-#         p <- ggraph(g, layout=layout)
-#     } else {
-#         p <- ggraph(g, layout="nicely")
-#         if (!is.null(coords)) {
-#             # ggData <- p$data
-#             # rownames(ggData) <- ggData$name
-#             # ids <- intersect(ggData$name, rownames(coords))
-#             # if (length(ids) > 0) {
-#             #     coords <- coords[ids, ]
-#             #     ggData[ids, "x"] <- coords$x
-#             #     ggData[ids, "y"] <- coords$y
-#             #     rownames(ggData) <- rownames(p$data)
-#             #     p$data <- ggData 
-#             ids <- match(p$data$name, rownames(coords))
-#             ids <- ids[!is.na(ids)]
-#             if (length(ids) > 0) {
-#                 p$data[ids, "x"] <- coords$x
-#                 p$data[ids, "y"] <- coords$y
-#             } else {
-#                 wm <-  paste("Invalid coords parameter, the rownames of the coords", 
-#                     "must be the term names found in the emapplot diagram")
-#                 warning(wm)
-#             }         
-#         }
-#     }
-#     return(p)
-# }
-