diff options
Diffstat (limited to 'R/networkplot.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 ) + |