document

Author: teunbrand

R/position-nudge.R

@@ -8,6 +8,7 @@
 #' @family position adjustments
 #' @param x,y Amount of vertical and horizontal distance to move.
 #' @export
+#' @eval rd_aesthetics("position", "nudge")
 #' @examples
 #' df <- data.frame(
 #'   x = c(1,3,2,5),

R/utilities-help.R

@@ -3,7 +3,8 @@
 rd_aesthetics <- function(type, name, extra_note = NULL) {
   obj <- switch(type,
     geom = check_subclass(name, "Geom", env = globalenv()),
-    stat = check_subclass(name, "Stat", env = globalenv())
+    stat = check_subclass(name, "Stat", env = globalenv()),
+    position = check_subclass(name, "Position", env = globalenv())
   )
   aes <- rd_aesthetics_item(obj)