Enable ggiraph zoom option

luffmark · luffmark · commit 2f573a34af6a · 2026-05-13T05:47:42.000Z
diff --git a/R/mod_plots.R b/R/mod_plots.R
@@ -542,7 +542,8 @@ patient_plot_server <- function(id, subject_var,
           options = list(
             ggiraph::opts_selection(type = "none"),
             ggiraph::opts_sizing(rescale = TRUE),
-            ggiraph::opts_tooltip(css = "border:none; padding:0px;")
+            ggiraph::opts_tooltip(css = "border:none; padding:0px;"),
+            ggiraph::opts_zoom(min = 0.5, max = 5)
           )
         )
       })

Original file line number	Diff line number	Diff line change
`@@ -542,7 +542,8 @@ patient_plot_server <- function(id, subject_var,`
`542`	`542`	`options = list(`
`543`	`543`	`ggiraph::opts_selection(type = "none"),`
`544`	`544`	`ggiraph::opts_sizing(rescale = TRUE),`
`545`		`- ggiraph::opts_tooltip(css = "border:none; padding:0px;")`
	`545`	`+ ggiraph::opts_tooltip(css = "border:none; padding:0px;"),`
	`546`	`+ ggiraph::opts_zoom(min = 0.5, max = 5)`
`546`	`547`	`)`
`547`	`548`	`)`
`548`	`549`	`})`