diff --git a/R/animate.R b/R/animate.R index 8e2425ec8..e44712a1a 100644 --- a/R/animate.R +++ b/R/animate.R @@ -59,7 +59,7 @@ function(x, pause=0.25, main, n=1, vars=NULL, range=NULL, add=NULL, ...) { for (reps in 1:n) { for (i in 1:length(vars)) { - plot(x, vars[i], main=main[i]) + plot(x, vars[i], main=main[i], ...) grDevices::dev.flush() grDevices::dev.hold() Sys.sleep(pause) @@ -75,7 +75,7 @@ function(x, pause=0.25, main, n=1, vars=NULL, range=NULL, add=NULL, ...) { if (isTRUE(add)) n <- 1 for (reps in 1:n) { if ((reps == 1) && (isTRUE(add)) && (is.null(grDevices::dev.list()))) { - plot(ext(x), border=NA) + plot(ext(x), border=NA, ...) } for (i in 1:nrow(x)) { addd <- if (is.null(add)) i != 1 else add