import and basic functionality for geom_segment

NAMESPACE

@@ -1,2 +1,5 @@
 # Generated by roxygen2: do not edit by hand
 
+export(GeomPolygonHollow)
+import(dplyr)
+import(ggplot2)

R/geom_segment_glyph.R

@@ -0,0 +1,28 @@
+#' @import ggplot2
+#' @import dplyr
+#' @export
+
+GeomPolygonHollow <- ggproto("GeomPolygonHollow", GeomPolygon,
+                             default_aes = aes(
+                               colour = "black",
+                               fill = NA,
+                               linewidth = 0.5,
+                               linetype = 1,
+                               alpha = NA
+                             )
+)
+
+geom_chull <- function(mapping = NULL, data = NULL, stat = "chull",
+                       position = "identity", na.rm = FALSE,
+                       show.legend = NA, inherit.aes = TRUE, ...) {
+  layer(
+    geom = GeomPolygonHollow,
+    data = data,
+    mapping = mapping,
+    stat = stat,
+    position = position,
+    show.legend = show.legend,
+    inherit.aes = inherit.aes,
+    params = list(na.rm = na.rm, ...)
+  )
+}