Enable ggiraph zoom option.

luffmark · luffmark · commit f51227fb7550 · 2026-05-13T06:16:54.000Z
diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,7 @@
 # dv.edish 2.0.2-9000
 
 - Update scrollbar settings for better handling with new Shiny bootstrap.
+- Enable zoom option.
 
 # dv.edish 2.0.2
 
diff --git a/R/mod_edish.R b/R/mod_edish.R
@@ -401,7 +401,8 @@ edish_server <- function(
           ggiraph::opts_sizing(rescale = TRUE),
           ggiraph::opts_hover(css = "stroke: blue; stroke-width: 1px; fill-opacity: 0.8;"),
           ggiraph::opts_selection(type = "single", css = "stroke: black; stroke-width: 1px;"),
-          ggiraph::opts_tooltip(css = "border:none; padding:0px;")
+          ggiraph::opts_tooltip(css = "border:none; padding:0px;"),
+          ggiraph::opts_zoom(min = 1, max = 5)
         )
       )
     })

Original file line number	Diff line number	Diff line change
`@@ -401,7 +401,8 @@ edish_server <- function(`
`401`	`401`	`ggiraph::opts_sizing(rescale = TRUE),`
`402`	`402`	`ggiraph::opts_hover(css = "stroke: blue; stroke-width: 1px; fill-opacity: 0.8;"),`
`403`	`403`	`ggiraph::opts_selection(type = "single", css = "stroke: black; stroke-width: 1px;"),`
`404`		`- ggiraph::opts_tooltip(css = "border:none; padding:0px;")`
	`404`	`+ ggiraph::opts_tooltip(css = "border:none; padding:0px;"),`
	`405`	`+ ggiraph::opts_zoom(min = 1, max = 5)`
`405`	`406`	`)`
`406`	`407`	`)`
`407`	`408`	`})`