guard against NA point padding

teunbrand · Jan 24, 2024 · 52885b5 · 52885b5
1 parent 16e3493
commit 52885b5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/R/geom-label-repel.R b/R/geom-label-repel.R
@@ -231,8 +231,9 @@ makeContent.labelrepeltree <- function(x) {
   point.size <- point.size * .pt / .stroke / 20
 
   # The padding around each point.
-  point.padding <- length_cm(x$point.padding)
-  point.padding[is.na(point.padding)] <- 0
+  point.padding <- x$point.padding
+  if (is.na(point.padding)) point.padding <- to_unit(0)
+  point.padding <- length_cm(point.padding)
 
   min.segment.length <- length_cm(x$min.segment.length)
 

diff --git a/R/geom-text-repel.R b/R/geom-text-repel.R
@@ -376,8 +376,9 @@ makeContent.textrepeltree <- function(x) {
   point.size <- point.size * .pt / .stroke / 20
 
   # The padding around each point.
-  point.padding <- length_cm(x$point.padding)
-  point.padding[is.na(point.padding)] <- 0
+  point.padding <- x$point.padding
+  if (is.na(point.padding)) point.padding <- to_unit(0)
+  point.padding <- length_cm(point.padding)
 
   min.segment.length <- length_cm(x$min.segment.length)