Merge pull request #503 from olivroy/issue-follow

Add display to code when saving `as_svg = TRUE`
rich-iannone · Nov 9, 2023 · 8ae1276 · 8ae1276
2 parents cd0427b + 8c46d28
commit 8ae1276
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/R/render_graph.R b/R/render_graph.R
@@ -241,6 +241,9 @@ render_graph <- function(
           grViz(diagram = dot_code)), "\n") %>%
         unlist()
 
+      # create display to make return work when `as_svg = TRUE` #482
+      display <- grViz(diagram = dot_code, width = width, height = height)
+
       # Get a tibble of SVG data
       svg_tbl <- get_svg_tbl(svg_vec)
 

diff --git a/man/DiagrammeR-package.Rd b/man/DiagrammeR-package.Rd