Update view_zoom_manual to new implementation

thomasp85 · Jan 2, 2019 · 28b8e03 · 28b8e03
1 parent 65f76c5
commit 28b8e03
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/R/view-zoom-manual.R b/R/view-zoom-manual.R
@@ -10,7 +10,7 @@ NULL
 #' @export
 #' @importFrom ggplot2 ggproto
 view_zoom_manual <- function(pause_length = 1, step_length = 1, xmin, xmax, ymin, ymax,
-                      delay = 0, wrap = TRUE, pause_first = FALSE,
+                      delay = 0, pan_zoom = 0, ease = 'sine-in-out', wrap = TRUE, pause_first = TRUE,
                       fixed_x = FALSE, fixed_y = FALSE, exclude_layer = NULL, aspect_ratio = 1) {
   ggproto(NULL, ViewZoomManual,
           fixed_lim = list(x = fixed_x, y = fixed_y),
@@ -26,6 +26,8 @@ view_zoom_manual <- function(pause_length = 1, step_length = 1, xmin, xmax, ymin
               ymax = ymax
             ),
             delay = delay,
+            pan_zoom = exp(pan_zoom),
+            ease = ease,
             wrap = wrap,
             pause_first = pause_first
           )

diff --git a/man/view_zoom.Rd b/man/view_zoom.Rd