add @nord to unexported parent functions to clean up man pages

Agent-Logs-Url: https://github.com/yihui/gglite/sessions/e8895fa3-fcde-4bf6-a1f0-06063892ac04

Co-authored-by: yihui <163582+yihui@users.noreply.github.com>

Author: Copilot

R/component.R

@@ -11,22 +11,7 @@
 #' @param ... Axis options such as `title`, `labelFormatter`, `tickCount`,
 #'   `grid`, `position`, etc., or `FALSE` to hide.
 #' @return The modified `g2` object.
-#' @examples
-#' # Chart-level axis titles (no marks yet)
-#' g2(mtcars, hp ~ mpg) |>
-#'   axis_x(title = 'Miles per Gallon') |>
-#'   axis_y(title = 'Horsepower')
-#'
-#' # Dual-axis chart: each mark gets its own axis immediately after mark_*()
-#' air = aggregate(cbind(Temp, Wind) ~ Month, data = airquality, FUN = mean)
-#' air$Month = month.abb[air$Month]
-#' g2(air, x = 'Month') |>
-#'   mark_interval(encode = list(y = 'Temp')) |>
-#'   scale_y(independent = TRUE) |>
-#'   axis_y(title = 'Temperature (°F)') |>
-#'   mark_line(encode = list(y = 'Wind')) |>
-#'   scale_y(independent = TRUE) |>
-#'   axis_y(position = 'right', grid = FALSE, title = 'Wind Speed (mph)')
+#' @noRd
 axis_ = function(chart = NULL, channel, ...) {
   mod = check_chart(axis_, chart, c(if (!missing(channel)) list(channel), list(...)))
   if (!is.null(mod)) return(mod)
@@ -87,9 +72,7 @@ axis_y = function(chart = NULL, ...) axis_(chart, 'y', ...)
 #' @param ... Legend options such as `position` (`'top'`, `'bottom'`, `'left'`,
 #'   `'right'`), `layout`, `title`, etc.
 #' @return The modified `g2` object.
-#' @examples
-#' p = g2(iris, Sepal.Length ~ Sepal.Width, color = ~ Species)
-#' p |> legend_color(position = 'right')
+#' @noRd
 legend_ = function(chart = NULL, channel, ...) {
   mod = check_chart(legend_, chart, c(if (!missing(channel)) list(channel), list(...)))
   if (!is.null(mod)) return(mod)
@@ -275,9 +258,7 @@ style_mark = function(chart = NULL, ...) {
 #' @param channel Positional channel: `'x'` or `'y'`.
 #' @param ... Slider options.
 #' @return The modified `g2` object.
-#' @examples
-#' p = g2(mtcars, hp ~ mpg)
-#' p |> slider_x()
+#' @noRd
 slider_ = function(chart = NULL, channel, ...) {
   mod = check_chart(slider_, chart, c(if (!missing(channel)) list(channel), list(...)))
   if (!is.null(mod)) return(mod)
@@ -312,10 +293,7 @@ slider_y = function(chart = NULL, ...) slider_(chart, 'y', ...)
 #' @param channel Positional channel: `'x'` or `'y'`.
 #' @param ... Scrollbar options.
 #' @return The modified `g2` object.
-#' @examples
-#' df = data.frame(x = 1:100, y = cumsum(rnorm(100)))
-#' p = g2(df, y ~ x) |> mark_line()
-#' p |> scroll_x()
+#' @noRd
 scroll_ = function(chart = NULL, channel, ...) {
   mod = check_chart(scroll_, chart, c(if (!missing(channel)) list(channel), list(...)))
   if (!is.null(mod)) return(mod)

R/mark.R

@@ -10,8 +10,6 @@
 #'   When `data` is a data frame, only columns referenced by the chart or
 #'   mark-level encodings are kept. Wrap it in [I()] to preserve all columns.
 #' @return The modified `g2` object.
-#' @examples
-#' g2(mtcars, hp ~ mpg) |> mark_point()
 mark_ = function(chart = NULL, type, ...) {
   mod = check_chart(mark_, chart, c(if (!missing(type)) list(type), list(...)))
   if (!is.null(mod)) return(mod)

R/scale.R

@@ -17,27 +17,7 @@
 #' @param ... Scale options passed to G2 (e.g., `type = 'log'`, `nice = TRUE`,
 #'   `domain`, `range`, `zero = TRUE`).
 #' @return The modified `g2` object.
-#' @examples
-#' p = g2(mtcars, hp ~ mpg)
-#' # Log-scaled x axis
-#' p |> scale_x(type = 'log')
-#'
-#' # Square-root scale on y
-#' p |> scale_y(type = 'sqrt')
-#'
-#' # Ordinal color palette
-#' g2(iris, Sepal.Length ~ Sepal.Width, color = ~ Species) |>
-#'   scale_color(palette = 'category10')
-#'
-#' # Dual-axis: pipe scale_y() right after each mark
-#' air = aggregate(cbind(Temp, Wind) ~ Month, data = airquality, FUN = mean)
-#' air$Month = month.abb[air$Month]
-#' g2(air, x = 'Month') |>
-#'   mark_interval(encode = list(y = 'Temp')) |>
-#'   scale_y(independent = TRUE) |>
-#'   mark_line(encode = list(y = 'Wind')) |>
-#'   scale_y(independent = TRUE) |>
-#'   axis_y(position = 'right', grid = FALSE)
+#' @noRd
 scale_ = function(chart = NULL, field, ...) {
   mod = check_chart(scale_, chart, c(if (!missing(field)) list(field), list(...)))
   if (!is.null(mod)) return(mod)

R/theme.R

@@ -22,10 +22,7 @@
 #' @param type Theme name string, or a list of custom theme options.
 #' @param ... Additional theme options merged with the type.
 #' @return The modified `g2` object.
-#' @examples
-#' p = g2(mtcars, hp ~ mpg)
-#' p |> theme_dark()
-#' p |> theme_academy()
+#' @noRd
 theme_ = function(chart = NULL, type, ...) {
   mod = check_chart(theme_, chart, c(if (!missing(type)) list(type), list(...)))
   if (!is.null(mod)) return(mod)