Update R/geom-ribbon.r

yutannihilation · thomasp85 · web-flow · commit 7d8554a3bd1b · 2019-12-18T12:09:10.000+09:00
Co-Authored-By: Thomas Lin Pedersen &lt;thomasp85@gmail.com&gt;
diff --git a/R/geom-ribbon.r b/R/geom-ribbon.r
@@ -156,7 +156,7 @@ GeomRibbon <- ggproto("GeomRibbon", Geom,
     munched_lines$id <- switch(outline.type,
       both = munched_lines$id + rep(c(0, max(ids, na.rm = TRUE)), each = length(ids)),
       upper = munched_lines$id + rep(c(0, NA), each = length(ids)),
-      abort(paste("inlvaid outline.type:", outline.type))
+      abort(glue("invalid outline.type: {outline.type}"))
     )
     g_lines <- polylineGrob(
       munched_lines$x, munched_lines$y, id = munched_lines$id,

Original file line number	Diff line number	Diff line change
`@@ -156,7 +156,7 @@ GeomRibbon <- ggproto("GeomRibbon", Geom,`
`156`	`156`	`munched_lines$id <- switch(outline.type,`
`157`	`157`	`both = munched_lines$id + rep(c(0, max(ids, na.rm = TRUE)), each = length(ids)),`
`158`	`158`	`upper = munched_lines$id + rep(c(0, NA), each = length(ids)),`
`159`		`- abort(paste("inlvaid outline.type:", outline.type))`
	`159`	`+ abort(glue("invalid outline.type: {outline.type}"))`
`160`	`160`	`)`
`161`	`161`	`g_lines <- polylineGrob(`
`162`	`162`	`munched_lines$x, munched_lines$y, id = munched_lines$id,`