Added missing parameters to geom_textline

NAMESPACE

@@ -20,8 +20,8 @@ export(geom_textdensity)
 export(geom_textdensity2d)
 export(geom_textline)
 export(geom_textpath)
-export(geom_textsf)
 export(geom_textsegment)
+export(geom_textsf)
 export(geom_textsmooth)
 export(labelpathGrob)
 export(stat_textcontour)
@@ -46,6 +46,7 @@ importFrom(stats,bw.nrd)
 importFrom(stats,complete.cases)
 importFrom(stats,dnorm)
 importFrom(stats,setNames)
+importFrom(stats,spline)
 importFrom(systemfonts,glyph_info)
 importFrom(textshaping,shape_text)
 importFrom(utils,head)

R/geom_textpath.R

@@ -261,7 +261,12 @@ GeomTextpath <- ggproto("GeomTextpath", Geom,
 #' @rdname geom_textpath
 geom_textline <- function(mapping = NULL, data = NULL, stat = "identity",
                       position = "identity", na.rm = FALSE, orientation = NA,
-                      show.legend = NA, inherit.aes = TRUE, ...) {
+                      show.legend = NA, inherit.aes = TRUE, ...,
+                      lineend = "butt", linejoin = "round", linemitre = 10,
+                      text_only = FALSE, gap = NA, upright = TRUE,
+                      halign = "center", offset = NULL, parse = FALSE,
+                      straight = FALSE, padding = unit(0.15, "inch"),
+                      arrow = NULL) {
   layer(
     data = data,
     mapping = mapping,
@@ -271,10 +276,21 @@ geom_textline <- function(mapping = NULL, data = NULL, stat = "identity",
     show.legend = show.legend,
     inherit.aes = inherit.aes,
     params = set_params(
-      na.rm = na.rm,
-      orientation = orientation,
-      ...
-    )
+          na.rm         = na.rm,
+          lineend       = lineend,
+          linejoin      = linejoin,
+          linemitre     = linemitre,
+          text_only     = text_only,
+          gap           = gap,
+          upright       = upright,
+          halign        = halign,
+          offset        = offset,
+          parse         = parse,
+          straight      = straight,
+          padding       = padding,
+          arrow         = arrow,
+          ...
+        )
   )
 }
 

R/geomtextpath-package.R

@@ -4,6 +4,7 @@
 #' @import ggplot2
 #' @import grid
 #' @importFrom stats approx dnorm approxfun complete.cases ave bw.nrd setNames
+#'   spline
 #' @importFrom utils head tail
 #' @importFrom graphics strwidth
 #' @importFrom systemfonts glyph_info

R/trig_helpers.R

@@ -365,7 +365,7 @@ corner_smoother <- function(x0, y0, x1, y1, x2, y2, p = 20) {
 find_control_points <- function(x, y, radius = 0.5) {
 
   lens <- diff(.arclength_from_xy(x, y))
-  angs <- .angle_from_xy(x, y)
+  angs <- atan2(diff(y), diff(x))
 
   segs <- Map(function(x, y, len, ang) {