test segment length instead of nudge

Author: sean-connelly-cmap

R/geom_text_lastonly_new.R

@@ -231,9 +231,9 @@ GeomTextLastNew <- ggproto(
   default_aes = aes(
     colour = "black", size = 3.88, angle = 0, label = NA,
     alpha = NA, family = "", fontface = 1, lineheight = 1.2,
-    nudge_x = 0.25, hjust = 0, vjust = 0.5, point.size = 1,
+    hjust = 0.5, vjust = 0.5, point.size = 1,
     segment.linetype = 1, segment.colour = "transparent",
-    segment.size = 0.5, segment.alpha = NULL,
+    segment.size = 0.75, segment.alpha = NULL,
     segment.curvature = 0, segment.angle = 90, segment.ncp = 1,
     segment.shape = 0.5, segment.square = TRUE, segment.squareShape = 1,
     segment.inflect = FALSE, segment.debug = FALSE,