simplify: extract ._print_render helper shared by knit_print + pkgdown_print

knit_print.plotit and pkgdown_print.plotit had identical bodies
(x <- ._sync_labels(x); ._render_plotit(x)).  Extract into ._print_render.

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>

Author: zorrooz

R/output.R

@@ -41,8 +41,7 @@ S7::method(format, plotit_composite) <- function(x, ...) ""
 #' @exportS3Method pkgdown::pkgdown_print
 pkgdown_print.plotit <- function(x, visible = TRUE) {
   if (!visible) return(invisible())
-  x <- ._sync_labels(x)
-  ._render_plotit(x)
+  ._print_render(x)
 }
 
 #' @exportS3Method pkgdown::pkgdown_print
@@ -106,12 +105,20 @@ print.plotit <- function(x, ...) {
 # ---- knit_print ----
 # S3 methods for knitr to capture plotit plots in vignettes / R Markdown.
 # Renders the underlying ggplot to knitr's active device.
-#' @exportS3Method knitr::knit_print
-knit_print.plotit <- function(x, ...) {
+
+# Shared knit_print / pkgdown_print path: sync labels, render, suppress text.
+#' @noRd
+#' @keywords internal
+._print_render <- function(x) {
   x <- ._sync_labels(x)
   ._render_plotit(x)
 }
 
+#' @exportS3Method knitr::knit_print
+knit_print.plotit <- function(x, ...) {
+  ._print_render(x)
+}
+
 #' @exportS3Method knitr::knit_print
 knit_print.plotit_composite <- function(x, ...) {
   x@gg <- ._apply_annotations(x)