anim_options_set() without argument resets global options

R/animate_options.R

@@ -61,7 +61,7 @@ anim_options <- function(
 #' @describeIn anim_options Set default animation options for the current session.
 #' @param anim_opts An [anim_options()] options list.
 #' @export
-anim_options_set <- function(anim_opts) {
+anim_options_set <- function(anim_opts = anim_options()) {
   stopifnot(is.anim_opts(anim_opts))
   ao_old <- plot_settings$anim_opts
   plot_settings$anim_opts <- merge(anim_opts, plot_settings$anim_opts)

man/anim_options.Rd

@@ -10,7 +10,7 @@ anim_options(transition_length = NULL, state_length = NULL,
   exit = NULL, text_family = NULL, title_family = NULL,
   text_size = NULL, title_size = NULL, ...)
 
-anim_options_set(anim_opts)
+anim_options_set(anim_opts = anim_options())
 }
 \arguments{
 \item{transition_length}{The relative length of the transition. Will be