Merge pull request #30 from monarch-initiative/fix_self_loop_plot

fix self loops missing in plot
monarch-initiative · Jul 29, 2024 · e125b6a · e125b6a
2 parents 3a3d5cf + 1062741
commit e125b6a
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -3,7 +3,7 @@ Type: Package
 Title: Monarch Knowledge Graph Queries
 Description: R package for easy access, manipulation, and analysis of
 		Monarch KG data Resources.
-Version: 1.0.0
+Version: 1.0.1
 URL: https://github.com/monarch-initiative/monarchr
 BugReports: https://github.com/monarch-initiative/monarchr/issues
 Authors@R:

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,6 @@
+
+1.0.1: Fix missing self loops in plot
+
 # monarchr 1.0.0
 
 1.0.0 is a major update to `monarchr` functionality and APIs.

diff --git a/R/plot.tbl_kgx.R b/R/plot.tbl_kgx.R
@@ -14,6 +14,9 @@ plot.tbl_kgx <- function(g, layout = "auto", node_color = pcategory, edge_color
 		geom_edge_fan(aes(color = {{edge_color}}),
 									 arrow = arrow(length = unit(2, 'mm'), type = "closed"),
 									 end_cap = circle(2.5, 'mm')) +
+		geom_edge_loop(aes(color = {{edge_color}}),
+									 arrow = arrow(length = unit(2, 'mm'), type = "closed"),
+									 end_cap = circle(2.5, 'mm')) +
 		geom_node_point(aes(color = {{node_color}}),
 										size = 3) +
 		geom_node_label(aes(label = str_wrap(name, 20)),