From 841057264d27aedb0ca833fc7f2e6eb3ad4bc7e1 Mon Sep 17 00:00:00 2001
From: Chris Sobczak <chris@sobczak.family>
Date: Mon, 15 Jun 2026 17:36:46 -0700
Subject: remove if else to flip labels

---
 R/networkplot.R | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/R/networkplot.R b/R/networkplot.R
index cfc2b13..01627ea 100644
--- a/R/networkplot.R
+++ b/R/networkplot.R
@@ -173,10 +173,7 @@ networkplot <- function(R, groups = NULL, group_label = NULL, title = NULL, r_la
 			x = .data$x * 1.1,
 			y = .data$y * 1.1,
 			angle = atan2(.data$y, .data$x) * 180 / pi,
-			hjust = ifelse(
-				atan2(.data$y, .data$x) > pi / 2 | atan2(.data$y, .data$x) < -pi / 2,
-				1, 0
-			)
+			hjust = atan2(.data$y, .data$x) > pi / 2
 		),
 		size = 2
 	) +
-- 
cgit v1.2.3