fix: allow to plot non overlapping labels from a layer made of strict…

…ly overlapping features fix #65
riatelab · Mar 4, 2024 · 52135ca · 52135ca
1 parent dfa96c3
commit 52135ca
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/mf_labels_utils.R b/R/mf_labels_utils.R
@@ -16,8 +16,8 @@ wordlayout <- function(x, y, words, cex = 1, q) {
   n <- length(words)
   sdx <- sd(x, na.rm = TRUE)
   sdy <- sd(y, na.rm = TRUE)
-  if (sdx == 0) sdx
-  if (sdy == 0) sdy
+  if (sdx == 0) sdx <- 1
+  if (sdy == 0) sdy <- 1
   if (length(cex) == 1) cex <- rep(cex, n)
   boxes <- list()
   for (i in seq_along(words)) {