From 28b8e03d51fc2a5611f3f20b5dc35603d11917f8 Mon Sep 17 00:00:00 2001 From: Thomas Lin Pedersen Date: Wed, 2 Jan 2019 13:31:00 +0100 Subject: [PATCH] Update view_zoom_manual to new implementation --- R/view-zoom-manual.R | 4 +++- man/view_zoom.Rd | 6 +++--- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/R/view-zoom-manual.R b/R/view-zoom-manual.R index 9c988e0..1acac9b 100644 --- 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 index 5e43170..b4d1b87 100644 --- a/man/view_zoom.Rd +++ b/man/view_zoom.Rd @@ -12,9 +12,9 @@ view_zoom(pause_length = 1, step_length = 1, nsteps = NULL, aspect_ratio = 1) view_zoom_manual(pause_length = 1, step_length = 1, xmin, xmax, ymin, - ymax, delay = 0, wrap = TRUE, pause_first = FALSE, - fixed_x = FALSE, fixed_y = FALSE, exclude_layer = NULL, - aspect_ratio = 1) + ymax, 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) } \arguments{ \item{pause_length}{The relative length the view will be kept static. Will