diff options
| author | Chris Sobczak <chris@sobczak.family> | 2026-06-15 17:36:46 -0700 |
|---|---|---|
| committer | Chris Sobczak <chris@sobczak.family> | 2026-06-15 17:36:46 -0700 |
| commit | 841057264d27aedb0ca833fc7f2e6eb3ad4bc7e1 (patch) | |
| tree | c5b5e76b5fedd0c444a6ece0d85118857844dce1 /R | |
| parent | 346a38834caca7416b382ed7ce70bc2bb0b8ff6c (diff) | |
remove if else to flip labels
Diffstat (limited to 'R')
| -rw-r--r-- | R/networkplot.R | 5 |
1 files changed, 1 insertions, 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 ) + |