Fix title centering in nice_lavaanPlot for all output formats

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: lavaanExtra
 Title: Convenience Functions for Package 'lavaan'
-Version: 0.2.2.4
+Version: 0.2.2.5
 Date: 2025-11-23
 Authors@R: 
     person("Rémi", "Thériault", , "remi.theriault@mail.mcgill.ca", role = c("aut", "cre"),
@@ -21,11 +21,13 @@ Suggests:
     rempsyc (> 0.1.6),
     flextable,
     lavaanPlot,
+    DiagrammeR,
     DiagrammeRsvg,
     rsvg,
     ggplot2,
     png,
-    webshot,
+    webshot2,
+    htmlwidgets,
     tidySEM,
     tmvnsim,
     knitr,

NEWS.md

@@ -2,6 +2,17 @@
 
 * In progress
 
+## lavaanExtra 0.2.2.5
+* `nice_lavaanPlot()`: Fixed title centering in all output formats (PNG, JPG, PDF, SVG) by:
+  - Adding Graphviz centering attributes (ALIGN="CENTER", BALIGN="CENTER", labeljust="c", center="true")
+  - Refactoring to use `lavaanPlot:::buildCall()` + `DiagrammeR::grViz()` for direct control over DOT diagram generation
+* `save_plot()`: Added `use_webshot` parameter (default `TRUE`) for browser-based rendering:
+  - When `TRUE`, uses webshot2 package (headless Chrome via chromote) for pixel-perfect rendering that matches RStudio viewer exactly
+  - Avoids librsvg font substitution issues (Helvetica → DejaVu Sans) that cause text misalignment
+  - Supports PNG, JPG, and PDF formats; SVG uses rsvg directly
+  - Set `use_webshot = FALSE` to use rsvg rendering instead (faster but may have font differences)
+* `save_plot()`: Re-enabled `add_svg_padding()` with horizontal-only padding to provide margin around plot content
+
 ## lavaanExtra 0.2.2.4
 * Add `save_plot()` function to export/save plots from `nice_lavaanPlot()` and `nice_tidySEM()` with multiple format options (PNG, PDF, SVG, JPG)
 

R/nice_lavaanPlot.R

@@ -77,13 +77,17 @@
 #'
 #' # With robust estimator showing multiple fit statistic types
 #' fit_robust <- cfa(HS.model, HolzingerSwineford1939, estimator = "MLR")
-#' nice_lavaanPlot(fit_robust, title = "CFA Model", fit_stats = TRUE,
-#'                 fit_stats_type = c("regular", "scaled", "robust"))
+#' nice_lavaanPlot(fit_robust,
+#'   title = "CFA Model", fit_stats = TRUE,
+#'   fit_stats_type = c("regular", "scaled", "robust")
+#' )
 #'
 #' # With custom font sizes (useful for large diagrams)
-#' nice_lavaanPlot(fit, title = "Three-Factor CFA Model",
-#'                 fit_stats = TRUE,
-#'                 title_size = 18, fit_stats_size = 12)
+#' nice_lavaanPlot(fit,
+#'   title = "Three-Factor CFA Model",
+#'   fit_stats = TRUE,
+#'   title_size = 18, fit_stats_size = 12
+#' )
 #'
 #' # With automatic text wrapping for long titles
 #' long_title <- "A Very Long Title That Would Otherwise Be Cut Off When Displayed"
@@ -95,10 +99,10 @@
 #' # Save plot to file
 #' \dontrun{
 #' plot <- nice_lavaanPlot(fit)
-#' save_plot(plot, "my_plot.png")    # PNG format
-#' save_plot(plot, "my_plot.pdf")    # PDF format (lossless)
-#' save_plot(plot, "my_plot.svg")    # SVG format (lossless)
-#' save_plot(plot, "my_plot.jpg")    # JPG format
+#' save_plot(plot, "my_plot.png") # PNG format
+#' save_plot(plot, "my_plot.pdf") # PDF format (lossless)
+#' save_plot(plot, "my_plot.svg") # SVG format (lossless)
+#' save_plot(plot, "my_plot.jpg") # JPG format
 #' }
 #' @section Illustrations:
 #'
@@ -128,9 +132,7 @@ nice_lavaanPlot <- function(
     c(
       "lavaanPlot",
       "DiagrammeRsvg",
-      "rsvg",
-      "png",
-      "webshot"
+      "DiagrammeR"
     ),
     reason = "for this function."
   )
@@ -316,7 +318,7 @@ nice_lavaanPlot <- function(
       html_rows <- c(
         html_rows,
         paste0(
-          "<TR><TD><FONT POINT-SIZE=\"",
+          "<TR><TD ALIGN=\"CENTER\"><FONT POINT-SIZE=\"",
           title_size,
           "\"><B>",
           title_text,
@@ -335,7 +337,7 @@ nice_lavaanPlot <- function(
       html_rows <- c(
         html_rows,
         paste0(
-          "<TR><TD><FONT POINT-SIZE=\"",
+          "<TR><TD ALIGN=\"CENTER\"><FONT POINT-SIZE=\"",
           note_size,
           "\">",
           note_text,
@@ -363,7 +365,7 @@ nice_lavaanPlot <- function(
         html_rows <- c(
           html_rows,
           paste0(
-            "<TR><TD><FONT POINT-SIZE=\"",
+            "<TR><TD ALIGN=\"CENTER\"><FONT POINT-SIZE=\"",
             fit_stats_size,
             "\">",
             wrapped_line,
@@ -374,26 +376,52 @@ nice_lavaanPlot <- function(
     }
 
     # Combine into full HTML table
+    # BALIGN="CENTER" centers the table itself within the label space
     graph_options$label <- paste0(
-      "<<TABLE BORDER=\"0\" CELLBORDER=\"0\" CELLSPACING=\"0\">",
+      "<<TABLE BORDER=\"0\" CELLBORDER=\"0\" CELLSPACING=\"0\" BALIGN=\"CENTER\">",
       paste(html_rows, collapse = ""),
       "</TABLE>>"
     )
 
     # Position label at top if title is present, otherwise at bottom
     graph_options$labelloc <- if (has_title) "t" else "b"
+    # Center the label horizontally
+    graph_options$labeljust <- "c"
+    # Center the entire graph drawing on the page
+    graph_options$center <- "true"
   }
 
-  lavaanPlot::lavaanPlot(
+  # --- buildCall + grViz backend ------------------------------------------
+
+  # Optional: allow width/height for HTML display (does NOT affect export_svg)
+  extra_args <- list(...)
+  widget_width <- if ("width" %in% names(extra_args)) extra_args$width else NULL
+  widget_height <- if ("height" %in% names(extra_args)) {
+    extra_args$height
+  } else {
+    NULL
+  }
+
+  # Use lavaanPlot's internal buildCall() to generate Graphviz DOT syntax
+  buildCall <- utils::getFromNamespace("buildCall", "lavaanPlot")
+  plot_call <- buildCall(
     model = model,
+    name = "plot",
+    labels = NULL, # let lavaanPlot handle default labeling
     node_options = node_options,
     edge_options = edge_options,
     coefs = coefs,
     stand = stand,
     covs = covs,
     stars = stars,
-    graph_options = graph_options,
-    sig = sig,
-    ...
+    graph_options = graph_options, # includes our title/note/fit_stats label
+    sig = sig
+  )
+
+  # Render as a grViz htmlwidget
+  DiagrammeR::grViz(
+    plot_call,
+    width = widget_width,
+    height = widget_height
   )
 }

R/nice_tidySEM.R

@@ -69,25 +69,27 @@
 #' # Save plot to file
 #' \dontrun{
 #' plot <- nice_tidySEM(fit, layout = structure)
-#' save_plot(plot, "my_plot.png")    # PNG format
-#' save_plot(plot, "my_plot.pdf")    # PDF format
+#' save_plot(plot, "my_plot.png") # PNG format
+#' save_plot(plot, "my_plot.pdf") # PDF format
 #' }
 #' @section Illustrations:
 #'
 #' \if{html}{\figure{nice_tidySEM.png}{options: width="400"}}
 
-nice_tidySEM <- function(fit,
-                         layout = NULL,
-                         hide_nonsig_edges = FALSE,
-                         hide_var = TRUE,
-                         hide_cov = FALSE,
-                         hide_mean = TRUE,
-                         est_std = TRUE,
-                         label,
-                         label_location = NULL,
-                         reduce_items = NULL,
-                         plot = TRUE,
-                         ...) {
+nice_tidySEM <- function(
+  fit,
+  layout = NULL,
+  hide_nonsig_edges = FALSE,
+  hide_var = TRUE,
+  hide_cov = FALSE,
+  hide_mean = TRUE,
+  est_std = TRUE,
+  label,
+  label_location = NULL,
+  reduce_items = NULL,
+  plot = TRUE,
+  ...
+) {
   insight::check_if_installed(c("tidySEM", "tmvnsim"))
 
   # We are forced to reimport some tidySEM functions manually here...
@@ -101,7 +103,10 @@ nice_tidySEM <- function(fit,
 
   # Function starts here
   structure <- layout
-  if (all(c("IV", "M", "DV") %in% names(structure)) && length(names(structure)) == 3) {
+  if (
+    all(c("IV", "M", "DV") %in% names(structure)) &&
+      length(names(structure)) == 3
+  ) {
     sx <- function(x) {
       rep("", x)
     }