begin separating examples per #78

R/stat-bagplot.r

@@ -35,8 +35,7 @@
 #' @param fraction Fraction of the data to include in the bag.
 #' @param coef Scale factor of the fence relative to the bag.
 #' @family stat layers
-#' @example inst/examples/ex-stat-bagplot-judges.r
-#' @example inst/examples/ex-stat-bagplot-iris.r
+#' @example inst/examples/ex-stat-bagplot.r
 #' @export
 stat_bagplot <- function(
     mapping = NULL, data = NULL, geom = "bagplot", position = "identity",

R/stat-center.r

@@ -21,7 +21,7 @@
 #' @template param-stat
 #' @template return-layer
 #' @family stat layers
-#' @example inst/examples/ex-stat-center-iris.r
+#' @example inst/examples/ex-stat-center.r
 #' @export
 stat_center <- function(
   mapping = NULL, data = NULL, geom = "point", position = "identity",

R/stat-chull.r

@@ -37,8 +37,7 @@
 #' @template param-stat
 #' @template return-layer
 #' @family stat layers
-#' @example inst/examples/ex-stat-chull-haireye.r
-#' @example inst/examples/ex-stat-peel-judges.r
+#' @example inst/examples/ex-stat-chull.r
 #' @export
 stat_chull <- function(
   mapping = NULL, data = NULL, geom = "polygon", position = "identity",

R/zzz-biplot-stats.r

@@ -35,7 +35,12 @@
 #' @inheritParams stat_rule
 #' @inheritParams stat_scale
 #' @inheritParams stat_spantree
-#' @example inst/examples/ex-stat-ellipse-iris.r
+#' @example inst/examples/ex-stat-bagplot-ord-iris.r
+#' @example inst/examples/ex-stat-bagplot-ord-judges.r
+#' @example inst/examples/ex-stat-center-ord-iris.r
+#' @example inst/examples/ex-stat-chull-ord-haireye.r
+#' @example inst/examples/ex-stat-ellipse-ord-iris.r
+#' @example inst/examples/ex-stat-peel-ord-judges.r
 NULL
 
 #' @rdname ordr-ggproto

build-pre/build-layers.r

@@ -324,15 +324,20 @@ done_protos <- unlist(lapply(layer_files, function(f) {
 ## 3. Run generators on manual and found lists of layers.
 Sys.sleep(.5)
 
-# find layer-specific examples
-ex_files <- list.files(here::here("inst/examples/"), "(stat|geom)-.*\\.(r|R)")
-# restrict to examples without home documentation files
-ex_match <- sapply(
-  str_replace_all(str_remove(orig_layers, "^(.*::|)"), "\\_", "-"),
-  str_match,
-  string = ex_files
-)
-ex_incl <- ex_files[apply(! is.na(ex_match), 1L, any)]
+# # find layer-specific examples
+# ex_files <- list.files(here::here("inst/examples/"), "(stat|geom)-.*\\.(r|R)")
+# # restrict to examples without home documentation files
+# ex_match <- sapply(
+#   str_replace_all(str_remove(orig_layers, "^(.*::|)"), "\\_", "-"),
+#   str_match,
+#   string = ex_files
+# )
+# ex_incl <- ex_files[apply(! is.na(ex_match), 1L, any)]
+# find layer-specific biplot examples
+ex_incl <- 
+  list.files(here::here("inst/examples/"), "(stat|geom)-.*-ord.*\\.(r|R)")
+names(ex_incl) <- 
+  str_replace(ex_incl, "^.*(stat|geom)\\-([a-z0-9]*).*$", "\\2 \\1")
 
 # find layers from ggplot2 extensions to import/export
 port_layers <- str_subset(orig_layers, "^ggplot2::", negate = TRUE)
@@ -446,9 +451,7 @@ for (type in c("stat", "geom")) {
   adapt_examples <- if (length(ex_type) == 0L) "" else glue::glue(
     str_c(
       str_c(
-        "#' @example inst/examples/",
-        ex_type,
-        "\n",
+        "#' @example inst/examples/", ex_type, "\n",
         collapse = ""
       ),
       "\n"

inst/examples/ex-stat-center.r

@@ -0,0 +1,7 @@
+ggplot(mpg, aes(x = displ, y = cty, shape = drv)) +
+  geom_point() +
+  stat_center(fun = "median", size = 5, alpha = .5)
+
+ggplot(mpg, aes(x = displ, y = cty, shape = drv, linetype = drv)) +
+  stat_center(size = 3) +
+  stat_star()

inst/examples/ex-stat-chull.r

@@ -0,0 +1,9 @@
+ggplot(USJudgeRatings, aes(x = INTG, y = PREP)) +
+  geom_point() +
+  stat_chull(alpha = .5)
+
+ggplot(USJudgeRatings, aes(x = INTG, y = PREP)) +
+  stat_peel(
+    aes(alpha = after_stat(hull)),
+    breaks = seq(.1, .9, .2), color = "black"
+  )

inst/examples/ex-stat-peel-judges.r → inst/examples/ex-stat-peel-ord-judges.r

@@ -1,4 +1,4 @@
-judge_pca <- ordinate(USJudgeRatings, princomp)
+judge_pca <- ordinate(USJudgeRatings, princomp, cols = -c(1, 12))
 ggbiplot(judge_pca, axis.type = "predictive") +
   geom_cols_axis() +
   geom_rows_point(elements = "score") +